Fix bug 45607 - for the corner case *{"BONK"} = \&{"BONK"} the order

of op evaluation means that what had been a reference to a constant
can turn into a typeglob before the sassign gets to run.

p4raw-id: //depot/perl@31940

1 files changed, 10 insertions, 1 deletions

diff --git a/t/op/gv.t b/t/op/gv.t
index bca84e742d..5b04f8719a 100755
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -12,7 +12,7 @@ BEGIN {
 use warnings;
 
 require './test.pl';
-plan( tests => 160 );
+plan( tests => 161 );
 
 # type coersion on assignment
 $foo = 'foo';
@@ -485,6 +485,15 @@ foreach my $value ([1,2,3], {1=>2}, *STDOUT{IO}, \&ok, *STDOUT{FORMAT}) {
     eval "`` if 0";
     is($@, '', "Can't trip up readpipe overloading");
 }
+
+{
+    die if exists $::{BONK};
+    $::{BONK} = \"powie";
+    *{"BONK"} = \&{"BONK"};
+    eval 'is(BONK(), "powie",
+             "Assigment works when glob created midway (bug 45607)"); 1'
+	or die $@;
+}
 __END__
 Perl
 Rules