diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2003-05-27 20:31:10 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-29 08:12:46 +0000 |
| commit | 34b888b7a116c8fc8bb998c58a3d9eea1f25ff56 (patch) | |
| tree | 9859a5b737e5bf715afca0e44dd73c96782ca0d2 /hv.c | |
| parent | 284196a30160ee3fc7affa3eed3ebbd21309fd83 (diff) | |
| download | perl-34b888b7a116c8fc8bb998c58a3d9eea1f25ff56.tar.gz | |
$x = $empty_hash{$undef_val} doesn't give a warning
Message-ID: <20030527183110.GA22715@fdgroup.com>
p4raw-id: //depot/perl@19632
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -418,6 +418,7 @@ Perl_hv_fetch_ent(pTHX_ HV *hv, SV *keysv, I32 lval, register U32 hash) #endif } + keysave = key = SvPV(keysv, klen); xhv = (XPVHV*)SvANY(hv); if (!xhv->xhv_array /* !HvARRAY(hv) */) { if (lval @@ -432,7 +433,6 @@ Perl_hv_fetch_ent(pTHX_ HV *hv, SV *keysv, I32 lval, register U32 hash) return 0; } - keysave = key = SvPV(keysv, klen); is_utf8 = (SvUTF8(keysv)!=0); if (is_utf8) { |