deparse ::CORE::foo barewords carefully

A bareword such as "::CORE::foo", where it refers to a GV, is liable to be
confused with the "CORE::foo" syntax, which can't refer to a GV but is a
way of supplying a keyword, and is illegal if the keyword doesn't exist.
Make sure to deparse it with the "::" prefix.  Fixes [perl #113714].

diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm
index acb1922..00e31d3 100644 (file)
--- a/lib/B/Deparse.pm
+++ b/lib/B/Deparse.pm
@@ -1778,6 +1778,7 @@ sub gv_name {
     {
        $stash = "";
     } else {
+       $stash = "::$stash" if $stash eq "CORE";
        $stash = $stash . "::";
     }
     if (!$raw and $name =~ /^(\^..|{)/) {

diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t
index 06b5cc7..63a4a08 100644 (file)
--- a/lib/B/Deparse.t
+++ b/lib/B/Deparse.t
@@ -2856,3 +2856,6 @@ $r = qr/abc\Q$a-$b\Exyz/;
 my $str;
 $str = 'foo';
 $str =~ tr/\cA//;
+####
+# CORE::foo special case in bareword parsing
+print ::CORE::foo $a;