diff options
| author | Bo Lindbergh <blgl@hagernas.com> | 2007-05-28 22:26:00 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-05-29 08:41:09 +0000 |
| commit | b20961491ccfb20bc7f9545285ddbacc783afb53 (patch) | |
| tree | 60c7061e36316152be0d6b504599476a39f5226e /scope.c | |
| parent | 13631a739e1ca9d4bd60d030c52c026ea442b52e (diff) | |
| download | perl-b20961491ccfb20bc7f9545285ddbacc783afb53.tar.gz | |
Re: localising hash element by variable
Message-Id: <BC2C451F-B286-4D38-923E-E3B473F7B5E1@hagernas.com>
p4raw-id: //depot/perl@31301
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -545,7 +545,7 @@ Perl_save_helem(pTHX_ HV *hv, SV *key, SV **sptr) SvGETMAGIC(*sptr); SSCHECK(4); SSPUSHPTR(SvREFCNT_inc_simple(hv)); - SSPUSHPTR(SvREFCNT_inc_simple(key)); + SSPUSHPTR(newSVsv(key)); SSPUSHPTR(SvREFCNT_inc(*sptr)); SSPUSHINT(SAVEt_HELEM); save_scalar_at(sptr); |