Note why pp_tie can't use call_method() for a package name.

Plus a test that would fail if it did.

1 files changed, 8 insertions, 0 deletions

diff --git a/t/op/tie.t b/t/op/tie.t
index 38c5cff877..5628694b8f 100644
--- a/t/op/tie.t
+++ b/t/op/tie.t
@@ -929,3 +929,11 @@ print "fetch=$fetch\ncalled=$called\n";
 EXPECT
 fetch=2
 called=2
+########
+# tie mustn't attempt to call methods on bareword filehandles.
+sub IO::File::TIEARRAY {
+    die "Did not want to invoke IO::File::TIEARRAY";
+}
+fileno FOO; tie @a, "FOO"
+EXPECT
+Can't locate object method "TIEARRAY" via package "FOO" at - line 5.