diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2000-10-21 19:19:59 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-22 17:47:35 +0000 |
| commit | b4e944950b7e107f02268dfe7e9eaf2795323d47 (patch) | |
| tree | a803849362f9624ab9c742590b475b4c6d97f8c1 /ext | |
| parent | eb9cd59d45ad29081c332cfeec2c88b9684ce53a (diff) | |
| download | perl-b4e944950b7e107f02268dfe7e9eaf2795323d47.tar.gz | |
-MO=C falls over on package <none>
Message-Id: <200010211719.SAA02087@crypt.compulink.co.uk>
p4raw-id: //depot/perl@7398
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B.pm | 2 | ||||
| -rw-r--r-- | ext/B/B/C.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/B/B.pm b/ext/B/B.pm index 50364fa1d2..dc4c4f7417 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 d0c8159d9f..f8b2ac5675 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); } |