Yitzchak Scott-Thoennes wrote:
>
> However, the bug I thought was there indeed was for scalar magic:
>
> sub TIESCALAR { bless {} }
> sub FETCH { my $x=3.3; 1 if 0+$x; $x }
> tie $h, "main"; print $h;
>
> prints 3 and should IMO print 3.3.
>
> The following fixes it, though I haven't run full tests yet:Thanks, applied as change #25358, your testcase added to t/op/tie.t. > --- perl/mg.c.orig 2005-08-01 07:28:07.000000000 -0700 > +++ perl/mg.c 2005-09-01 22:24:40.072814400 -0700
