diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2012-05-25 21:46:19 -0300 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-05-25 21:47:13 -0700 |
| commit | 8f9dd741bc76bd7e49a796a5331963e141f61a61 (patch) | |
| tree | 109b70fd754655a5f032d91ed8014359ef2c8197 | |
| parent | 81bca5f981903ee45d906e8cf88118f1d6030d72 (diff) | |
| download | perl-8f9dd741bc76bd7e49a796a5331963e141f61a61.tar.gz | |
Test case for [perl #9391]
| -rw-r--r-- | t/op/tie.t | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/t/op/tie.t b/t/op/tie.t index fcbf7a5830..3b5fc533e2 100644 --- a/t/op/tie.t +++ b/t/op/tie.t @@ -1277,3 +1277,15 @@ join $a, 1..10; EXPECT 1 1 +######## + +# [perl #9391] return value from 'tied' not discarded soon enough +use warnings; +tie @a, 'T'; +if (tied @a) { +untie @a; +} + +sub T::TIEARRAY { my $s; bless \$s => "T" } +EXPECT + |