diff options
| author | Craig A. Berry <craigberry@mac.com> | 2011-03-15 21:46:05 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2011-03-16 07:13:30 -0500 |
| commit | 673f72bfd4f1997a5b3a11444dabef4a5e0f31e2 (patch) | |
| tree | 438d64af97375abc8516a6b15e0d77f3fd9bc9e0 | |
| parent | 26cedddc4c992e579835856d173ca78d6e8ba26e (diff) | |
| download | perl-673f72bfd4f1997a5b3a11444dabef4a5e0f31e2.tar.gz | |
t/op/eval.t tweak for VMS due to record-oriented pipes.
Broken in 0d804ff61f3a2df265fee122d53e0463dac6f878.
| -rw-r--r-- | t/op/eval.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/op/eval.t b/t/op/eval.t index eacc3c5d7a..526ea4cc0f 100644 --- 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 $@'); } |