diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-14 22:11:36 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-14 22:11:36 +0000 |
commit | 0dfe9c83689186a0e3a524a49bf51fc000daba95 (patch) | |
tree | b75252947a0df60ea6bad7c4aa6a2b2eddad2021 /t | |
parent | 1028017ab8b9674cf749da3584eec9f032360d33 (diff) | |
parent | 62d10b704aa877d24f326d3b46b7eceb38549c98 (diff) | |
download | perl-0dfe9c83689186a0e3a524a49bf51fc000daba95.tar.gz |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@4381
Diffstat (limited to 't')
-rwxr-xr-x | t/op/runlevel.t | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/t/op/runlevel.t b/t/op/runlevel.t index a1551775e3..1dc2a234b2 100755 --- a/t/op/runlevel.t +++ b/t/op/runlevel.t @@ -335,3 +335,17 @@ tie my @bar, 'TEST'; print join('|', @bar[0..3]), "\n"; EXPECT foo|fee|fie|foe +######## +package TH; +sub TIEHASH { bless {}, TH } +sub STORE { eval { print "@_[1,2]\n" }; die "bar\n" } +tie %h, TH; +eval { $h{A} = 1; print "never\n"; }; +print $@; +eval { $h{B} = 2; }; +print $@; +EXPECT +A 1 +bar +B 2 +bar |