projects
/
migration-tools.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
rescued changes
[migration-tools.git]
/
Equinox-Migration
/
lib
/
Equinox
/
Migration
/
SimpleTagList.pm
diff --git
a/Equinox-Migration/lib/Equinox/Migration/SimpleTagList.pm
b/Equinox-Migration/lib/Equinox/Migration/SimpleTagList.pm
index
ffe3591
..
9bce081
100644
(file)
--- a/
Equinox-Migration/lib/Equinox/Migration/SimpleTagList.pm
+++ b/
Equinox-Migration/lib/Equinox/Migration/SimpleTagList.pm
@@
-86,7
+86,7
@@
or Perl will think you're passing a (possibly malformed) octal value.
=cut
-sub has { my ($self, $t) = @_; $t =~ s/^0+//; return (defined $self->{tags}{$t}) ? 1 : 0 }
+sub has { my ($self, $t) = @_; return 0 unless $t; $t =~ s/^0+//; return (defined $self->{tags}{$t}) ? 1 : 0 }
=head2 as_hashref