From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 2 Feb 2008 18:52:15 +0000 (+0000)
Subject: 5.8.x and earler have a SUBPROCESS line in the dump of a PVIO.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=98deaf8b6f81f2134325cdb77e2cb53eef33afb3;p=p5sagit%2Fp5-mst-13.2.git

5.8.x and earler have a SUBPROCESS line in the dump of a PVIO.

p4raw-id: //depot/perl@33208
---

diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t
index 174d014..0ef8a4b 100644
--- a/ext/Devel/Peek/t/Peek.t
+++ b/ext/Devel/Peek/t/Peek.t
@@ -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');