This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
deparse ::CORE::foo barewords carefully
[perl5.git] / lib / B / Deparse.pm
index acb1922..00e31d3 100644 (file)
@@ -1778,6 +1778,7 @@ sub gv_name {
     {
        $stash = "";
     } else {
+       $stash = "::$stash" if $stash eq "CORE";
        $stash = $stash . "::";
     }
     if (!$raw and $name =~ /^(\^..|{)/) {