Fix for RT#1804: Anonymous glob breaks when assigned through

The problem here is that globs are scalars and the = operator can only
distinguish between scalar and glob assignments by the flags on the
glob. It only sees the return value of *{}, not the *{} itself. We can
fix this by having the pp_sassign look for a rv2gv (*{}) on its LHS,
to decide what type of assignment to do.

1 files changed, 12 insertions, 1 deletions

diff --git a/t/op/gv.t b/t/op/gv.t
index f3511e353b..13da980365 100644
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -12,7 +12,7 @@ BEGIN {
 use warnings;
 
 require './test.pl';
-plan( tests => 191 );
+plan( tests => 192 );
 
 # type coersion on assignment
 $foo = 'foo';
@@ -623,6 +623,17 @@ is ($@, '', "Can localize FAKE glob that's present in stash");
 is (scalar $::{fake}, "*main::sym",
 	"Localized FAKE glob's value was correctly restored");
 
+# [perl #1804] *$x assignment when $x is a copy of another glob
+{
+    no warnings 'once';
+    my $x = *_random::glob_that_is_not_used_elsewhere;
+    *$x = sub{};
+    is(
+      "$x", '*_random::glob_that_is_not_used_elsewhere',
+      '[perl #1804] *$x assignment when $x is FAKE',
+    );
+}
+
 __END__
 Perl
 Rules