-MO=C falls over on package <none>

Message-Id: <200010211719.SAA02087@crypt.compulink.co.uk>

p4raw-id: //depot/perl@7398

diff --git a/ext/B/B.pm b/ext/B/B.pm
index 50364fa..dc4c4f7 100644 (file)
--- a/ext/B/B.pm
+++ b/ext/B/B.pm
@@ -185,7 +185,7 @@ sub walksymtable {
        *glob = "*main::".$prefix.$sym;
        if ($sym =~ /::$/) {
            $sym = $prefix . $sym;
-           if ($sym ne "main::" && &$recurse($sym)) {
+           if ($sym ne "main::" && $sym ne "<none>::" && &$recurse($sym)) {
                walksymtable(\%glob, $method, $recurse, $sym);
            }
        } else {

diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm
index d0c8159..f8b2ac5 100644 (file)
--- a/ext/B/B/C.pm
+++ b/ext/B/B/C.pm
@@ -1368,7 +1368,7 @@ sub walkpackages
    if ($sym =~ /::$/) 
     {
      $sym = $prefix . $sym;
-     if ($sym ne "main::" && &$recurse($sym)) 
+     if ($sym ne "main::" && $sym ne "<none>::" && &$recurse($sym)) 
       {
        walkpackages(\%glob, $recurse, $sym);
       }