Change 19632: [PATCH] $x = $empty_hash{$undef_val} doesn't give a warning

[Jarkko Hietaniemi]

Change 19632 by [EMAIL PROTECTED] on 2003/05/29 08:12:46

        Subject: [PATCH] $x = $empty_hash{$undef_val} doesn't give a warning
        From: Dave Mitchell <[EMAIL PROTECTED]>
        Date: Tue, 27 May 2003 19:31:10 +0100
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/hv.c#132 edit

Differences ...

==== //depot/perl/hv.c#132 (text) ====
Index: perl/hv.c
--- perl/hv.c#131~19528~        Fri May 16 08:56:33 2003
+++ perl/hv.c   Thu May 29 01:12:46 2003
@@ -418,6 +418,7 @@
 #endif
     }
 
+    keysave = key = SvPV(keysv, klen);
     xhv = (XPVHV*)SvANY(hv);
     if (!xhv->xhv_array /* !HvARRAY(hv) */) {
        if (lval
@@ -432,7 +433,6 @@
            return 0;
     }
 
-    keysave = key = SvPV(keysv, klen);
     is_utf8 = (SvUTF8(keysv)!=0);
 
     if (is_utf8) {
End of Patch.