diff options
Diffstat (limited to 't/op/tie.t')
| -rwxr-xr-x | t/op/tie.t | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/t/op/tie.t b/t/op/tie.t index 1fe37e1624..8cb45398ad 100755 --- a/t/op/tie.t +++ b/t/op/tie.t @@ -578,3 +578,10 @@ tie $h, "main"; print $h,"\n"; EXPECT 3.3 +######## +sub TIESCALAR { bless {} } +sub FETCH { shift()->{i} ++ } +tie $h, "main"; +print $h.$h; +EXPECT +01 |