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.t
index 06b5cc7..63a4a08 100644 (file)
@@ -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;