Change 33209 by [EMAIL PROTECTED] on 2008/02/02 18:53:12
Integrate:
[ 33208]
5.8.x and earler have a SUBPROCESS line in the dump of a PVIO.
Affected files ...
... //depot/maint-5.10/perl/ext/Devel/Peek/t/Peek.t#5 integrate
Differences ...
==== //depot/maint-5.10/perl/ext/Devel/Peek/t/Peek.t#5 (text) ====
Index: perl/ext/Devel/Peek/t/Peek.t
--- perl/ext/Devel/Peek/t/Peek.t#4~33207~ 2008-02-02 10:43:10.000000000
-0800
+++ perl/ext/Devel/Peek/t/Peek.t 2008-02-02 10:53:12.000000000 -0800
@@ -50,6 +50,10 @@
$pattern =~ s/^ *\$NV *\n/
($] < 5.011) ? " NV = 0\n" : '';
/mge;
+ $pattern =~ s/^ *\$SUBPROCESS *\n/
+ ($] < 5.009) ? " SUBPROCESS = 0\n" : '';
+ /mge;
+
print $pattern, "\n" if $DEBUG;
my ($dump, $dump2) = split m/\*\*\*\*\*\n/, scalar <IN>;
@@ -569,5 +573,6 @@
TOP_GV = 0x0
FMT_GV = 0x0
BOTTOM_GV = 0x0
+ $SUBPROCESS
TYPE = \'>\'
FLAGS = 0x0');
End of Patch.
