From: Brandon L Black Date: Mon, 19 May 2008 22:19:18 +0000 (+0000) Subject: fix really stupid bug wrt defined package names that are false X-Git-Tag: 0.07~3 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMRO-Compat.git;a=commitdiff_plain;h=66b426e8609c9bef39d5f98cd8ae6f2518e47344 fix really stupid bug wrt defined package names that are false --- diff --git a/lib/MRO/Compat.pm b/lib/MRO/Compat.pm index 541e1d9..8c7e224 100644 --- a/lib/MRO/Compat.pm +++ b/lib/MRO/Compat.pm @@ -227,7 +227,7 @@ sub __get_all_pkgs_with_isas { my $search = shift; my $pfx; my $isa; - if($search) { + if(defined $search) { $isa = \@{"$search\::ISA"}; $pfx = "$search\::"; }