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
+