diff options
Diffstat (limited to 't/op/tie.t')
| -rw-r--r-- | t/op/tie.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/op/tie.t b/t/op/tie.t index 3d4eb20394..02b6b11d4c 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 |