This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Deparse dump as CORE::dump
authorFather Chrysostomos <sprout@cpan.org>
Thu, 8 Dec 2011 17:34:04 +0000 (09:34 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 8 Dec 2011 17:34:04 +0000 (09:34 -0800)
Since dump() warns without CORE::, and since the two variants are
indistinguishable after compilation, always deparse dump() as
CORE::dump.

dist/B-Deparse/Deparse.pm
dist/B-Deparse/t/deparse.t

index f400ed7..f394cb3 100644 (file)
@@ -2027,7 +2027,7 @@ sub pp_last { loopex(@_, "last") }
 sub pp_next { loopex(@_, "next") }
 sub pp_redo { loopex(@_, "redo") }
 sub pp_goto { loopex(@_, "goto") }
-sub pp_dump { loopex(@_, $_[0]->keyword("dump")) }
+sub pp_dump { loopex(@_, "CORE::dump") }
 
 sub ftst {
     my $self = shift;
index 820a5ef..a1d3317 100644 (file)
@@ -858,7 +858,7 @@ CORE::do({});
 () = (goto 1) + 3;
 () = (require 'foo') + 3;
 () = (require foo) + 3;
-() = (dump 1) + 3;
+() = (CORE::dump 1) + 3;
 () = (last 1) + 3;
 () = (next 1) + 3;
 () = (redo 1) + 3;