A thinko in #10065.
Jarkko Hietaniemi [Thu, 10 May 2001 01:45:03 +0000 (01:45 +0000)]
p4raw-id: //depot/perl@10067

hv.c

diff --git a/hv.c b/hv.c
index 817d54d..5df4dd8 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -836,7 +836,7 @@ Perl_hv_exists(pTHX_ HV *hv, const char *key, I32 klen)
     }
 
     if (SvRMAGICAL(hv)) {
-       if (mg_find((SV*)hv,'P') || SvGMAGICAL((SV*)gv)) {
+       if (mg_find((SV*)hv,'P') || SvGMAGICAL((SV*)hv)) {
            sv = sv_newmortal();
            mg_copy((SV*)hv, sv, key, klen);
            magic_existspack(sv, mg_find(sv, 'p'));