This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix up Peek.t
authorFather Chrysostomos <sprout@cpan.org>
Wed, 27 Aug 2014 20:18:42 +0000 (13:18 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 28 Aug 2014 20:04:18 +0000 (13:04 -0700)
ext/Devel-Peek/t/Peek.t

index 0cc6717..a38d909 100644 (file)
@@ -1542,7 +1542,7 @@ dumpindent is 4 at - line 1.
     }
     {
 5       TYPE = entersub  ===> 1
-        TARG = TARGS_REPLACE
+        TARG = 1
         FLAGS = (VOID,KIDS,STACKED,SLABBED,LASTSIB)
         PRIVATE = (HASTARG)
         {
@@ -1568,7 +1568,6 @@ dumpindent is 4 at - line 1.
 }
 EODUMP
 
-$e =~ s/TARGS_REPLACE/$threads ? 3 : 1/e;
 $e =~ s/GV_OR_PADIX/$threads ? "PADIX = 2" : "GV = t::DumpProg"/e;
 
 test_DumpProg("package t;", $e, "DumpProg() has no 'Attempt to free X prematurely' warning", "is" );