[PATCH] Re: [perl #77498] Assignment ignores magick when the RHS holds a glob

On Aug 29, 2010, at 1:48 PM, Father Chrysostomos wrote:

> #!perl -l
> sub TIESCALAR{bless[]}
> sub STORE{}
> sub FETCH{1}
> tie my $t, "";
> $t = *foo;
> $x = $t;
> print $x; # prints *main::foo

This patch won’t apply without the one for bug #77362 applied first.

If the patch for bug #77496 is not applied first, too, this one will cause test failures, as it triggers that bug.

This modifies a test in t/op/tie_fetch_count.t, which currently relies on this bug. *{} is another one of those operators that can return its operand, like || and &&.

• [PATCH] Re: [perl #77498] Assignment ignores magick when the RHS holds a glob by Father Chrysostomos