diff options
Diffstat (limited to 't/op/tie.t')
| -rw-r--r-- | t/op/tie.t | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/t/op/tie.t b/t/op/tie.t index ad58af74c0..6ff5870ef6 100644 --- a/t/op/tie.t +++ b/t/op/tie.t @@ -1332,3 +1332,11 @@ Can't call method "FETCHSIZE" on an undefined value at - line 5. Can't call method "FETCHSIZE" on an undefined value at - line 6. Can't call method "FETCHSIZE" on an undefined value at - line 7. Can't call method "FETCHSIZE" on an undefined value at - line 8. +######## + +# Assigning vstrings to tied scalars +sub TIESCALAR{bless[]}; +sub STORE { print ref \$_[1], "\n" } +tie $x, ""; $x = v3; +EXPECT +VSTRING |