diff options
-rw-r--r-- | ext/Devel-Peek/t/Peek.t | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index 062aa2e03b..f5127b642f 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -1474,7 +1474,9 @@ for my $test ( test_DumpProg(@$test); } -my $e = <<'EODUMP'; +{ + local $TODO = 'This gets mangled by the current pipe implementation' if $^O eq 'VMS'; + my $e = <<'EODUMP'; dumpindent is 4 at -e line 1. { 1 TYPE = leave ===> NULL @@ -1521,13 +1523,13 @@ dumpindent is 4 at -e line 1. } EODUMP -$e =~ s/GV_OR_PADIX/$threads ? "PADIX = 2" : "GV = t::DumpProg"/e; -$e =~ s/.*PRIVATE = \(0x1\).*\n// if $] < 5.021004; -my $out = t::runperl - switches => ['-Ilib'], - prog => 'package t; use Devel::Peek q-DumpProg-; DumpProg();', - stderr=>1; -$out =~ s/ *SEQ = .*\n//; -is $out, $e, "DumpProg() has no 'Attempt to free X prematurely' warning"; - + $e =~ s/GV_OR_PADIX/$threads ? "PADIX = 2" : "GV = t::DumpProg"/e; + $e =~ s/.*PRIVATE = \(0x1\).*\n// if $] < 5.021004; + my $out = t::runperl + switches => ['-Ilib'], + prog => 'package t; use Devel::Peek q-DumpProg-; DumpProg();', + stderr=>1; + $out =~ s/ *SEQ = .*\n//; + is $out, $e, "DumpProg() has no 'Attempt to free X prematurely' warning"; +} done_testing(); |