applied patch, modified logic to avoid reentering lexer at compile-time

	Message-ID: <19980619113104.S9711@asic.sc.ti.com>
	Subject: Re: [PATCH perl5.004_67] Add Errno in ext/

p4raw-id: //depot/perl@1173

1 files changed, 2 insertions, 2 deletions

diff --git a/gv.c b/gv.c
index 561db93558..0a363704cd 100644
--- a/gv.c
+++ b/gv.c
@@ -711,9 +711,9 @@ gv_fetchpv(char *nambeg, I32 add, I32 sv_type)
 	goto magicalize;
 
     case '!':
-	if(len > 1)
+	if (len > 1)
 	    break;
-	if(sv_type > SVt_PV) {
+	if (sv_type > SVt_PV && curcop != &compiling) {
 	    HV* stash = gv_stashpvn("Errno",5,FALSE);
 	    if(!stash || !(gv_fetchmethod(stash, "TIEHASH"))) {
 		dSP;