This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix deparsing of subs named :::: and ::::::
[perl5.git] / dist / B-Deparse / Deparse.pm
index 81c918c..a147ed4 100644 (file)
@@ -481,7 +481,7 @@ sub stash_subs {
     else {
        $pack =~ s/(::)?$/::/;
        no strict 'refs';
-       $stash = \%$pack;
+       $stash = \%{"main::$pack"};
     }
     my %stash = svref_2object($stash)->ARRAY;
     while (my ($key, $val) = each %stash) {