5.8.x and earler have a SUBPROCESS line in the dump of a PVIO.
authorNicholas Clark <nick@ccl4.org>
Sat, 2 Feb 2008 18:52:15 +0000 (18:52 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 2 Feb 2008 18:52:15 +0000 (18:52 +0000)
p4raw-id: //depot/perl@33208

ext/Devel/Peek/t/Peek.t

index 174d014..0ef8a4b 100644 (file)
@@ -50,6 +50,10 @@ sub do_test {
            $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 @@ do_test(25,
     TOP_GV = 0x0
     FMT_GV = 0x0
     BOTTOM_GV = 0x0
+    $SUBPROCESS
     TYPE = \'>\'
     FLAGS = 0x0');