diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-02-02 18:52:15 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-02-02 18:52:15 +0000 |
| commit | 98deaf8b6f81f2134325cdb77e2cb53eef33afb3 (patch) | |
| tree | 8de05fd6dbc75687f7bf465ec0439560ab1831b1 /ext/Devel | |
| parent | 349133794f77de879ecfb64dfb8a697273132fe6 (diff) | |
| download | perl-98deaf8b6f81f2134325cdb77e2cb53eef33afb3.tar.gz | |
5.8.x and earler have a SUBPROCESS line in the dump of a PVIO.
p4raw-id: //depot/perl@33208
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/Peek/t/Peek.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t index 174d0142aa..0ef8a4b556 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'); |