t/op/eval.t tweak for VMS due to record-oriented pipes.

Broken in 0d804ff61f3a2df265fee122d53e0463dac6f878.

diff --git a/t/op/eval.t b/t/op/eval.t
index eacc3c5..526ea4c 100644 (file)
--- a/t/op/eval.t
+++ b/t/op/eval.t
@@ -492,6 +492,9 @@ END_EVAL_TEST
     $first =~ s/,pNOK//;
     s/ PV = 0x[0-9a-f]+/ PV = 0x/ foreach $first, $second;
     s/ LEN = [0-9]+/ LEN = / foreach $first, $second;
+    # Dump may double newlines through pipes, though not files
+    # which is what this test used to use.
+    $second =~ s/ IV = 0\n\n/ IV = 0\n/ if $^O eq 'VMS';
 
     is($second, $first, 'eval { 1 } completely resets $@');
 }