diff options
| author | Richard Soderberg <p5-authors@crystalflame.net> | 2001-05-25 23:44:20 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-13 14:07:43 +0000 |
| commit | fe4a5e1fbb83ffbce81a0da0ffeb69d3ffef3a82 (patch) | |
| tree | 20d228d8f4fb7cf560c50a15469c179251ac91b3 | |
| parent | fd3cca2544a9395f0e53e881d854a52d1a0914a7 (diff) | |
| download | perl-fe4a5e1fbb83ffbce81a0da0ffeb69d3ffef3a82.tar.gz | |
Re: [ID 20010526.001] localized glob loses value when assigned to
Message-ID: <NAEKLNAAHLMBPMPNBMLECECHDFAA.rs@crystalflame.net>
p4raw-id: //depot/perl@10563
| -rw-r--r-- | sv.c | 5 | ||||
| -rwxr-xr-x | t/op/glob.t | 10 |
2 files changed, 9 insertions, 6 deletions
@@ -3215,12 +3215,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags) #endif if (intro) { - GP *gp; - gp_free((GV*)dstr); GvINTRO_off(dstr); /* one-shot flag */ - Newz(602,gp, 1, GP); - GvGP(dstr) = gp_ref(gp); - GvSV(dstr) = NEWSV(72,0); GvLINE(dstr) = CopLINE(PL_curcop); GvEGV(dstr) = (GV*)dstr; } diff --git a/t/op/glob.t b/t/op/glob.t index 98efc3d65a..2eb371ae35 100755 --- a/t/op/glob.t +++ b/t/op/glob.t @@ -5,7 +5,7 @@ BEGIN { @INC = '../lib'; } -print "1..7\n"; +print "1..10\n"; @oops = @ops = <op/*>; @@ -48,3 +48,11 @@ for (1..2) { ++$i; } print $i == 2 ? "ok 7\n" : "not ok 7\n"; + +# [ID 20010526.001] localized glob loses value when assigned to + +$j=1; %j=(a=>1); @j=(1); local *j=*j; *j = sub{}; + +print $j == 1 ? "ok 8\n" : "not ok 8\n"; +print $j{a} == 1 ? "ok 9\n" : "not ok 9\n"; +print $j[0] == 1 ? "ok 10\n" : "not ok 10\n"; |