From: Hugo van der Sanden <hv@crypt.org>
Date: Sat, 21 Oct 2000 18:19:59 +0000 (+0100)
Subject: -MO=C falls over on package <none>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b4e944950b7e107f02268dfe7e9eaf2795323d47;p=p5sagit%2Fp5-mst-13.2.git

-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
--- 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
--- 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);
       }