diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/op/eval.t | 2 | ||||
| -rw-r--r-- | t/op/tie.t | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/t/op/eval.t b/t/op/eval.t index 20f459a9cc..9866ca7130 100644 --- a/t/op/eval.t +++ b/t/op/eval.t @@ -496,7 +496,7 @@ END_EVAL_TEST is($tombstone, "Done\n", 'Program completed successfully'); - $first =~ s/,pNOK//; + $first =~ s/p?[NI]OK,//g; 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 diff --git a/t/op/tie.t b/t/op/tie.t index 3b5fc533e2..a997c416f9 100644 --- a/t/op/tie.t +++ b/t/op/tie.t @@ -273,12 +273,13 @@ EXPECT 0 ######## # -# FETCH freeing tie'd SV +# FETCH freeing tie'd SV still works sub TIESCALAR { bless [] } -sub FETCH { *a = \1; 1 } +sub FETCH { *a = \1; 2 } tie $a, 'main'; print $a; EXPECT +2 ######## # [20020716.007] - nested FETCHES |