fix really stupid bug wrt defined package names that are false
Brandon L Black [Mon, 19 May 2008 22:19:18 +0000 (22:19 +0000)]
lib/MRO/Compat.pm

index 541e1d9..8c7e224 100644 (file)
@@ -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\::";
     }