X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=gv.c;h=b297cb6c66f7299bb59de96590ac15e91952dc1a;hb=b0b6bf2b21cef2068f6e0ff354c014823901afc7;hp=2fe604b2c8175ec97f63b5bdd886ce45a80382d0;hpb=608b3986f5e84a9d4745493bf572b18115a97390;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/gv.c b/gv.c
index 2fe604b..b297cb6 100644
--- a/gv.c
+++ b/gv.c
@@ -720,7 +720,7 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type)
 
 	    if (global)
 		stash = PL_defstash;
-	    else if ((COP*)PL_curcop == &PL_compiling) {
+	    else if (IN_PERL_COMPILETIME) {
 		stash = PL_curstash;
 		if (add && (PL_hints & HINT_STRICT_VARS) &&
 		    sv_type != SVt_PVCV &&