From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 10 May 2001 01:45:03 +0000 (+0000)
Subject: A thinko in #10065.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9c0d12f1870cbb698224921504e0a8c942d1857c;p=p5sagit%2Fp5-mst-13.2.git

A thinko in #10065.

p4raw-id: //depot/perl@10067
---

diff --git a/hv.c b/hv.c
index 817d54d..5df4dd8 100644
--- 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'));