From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 9 Mar 1999 02:50:43 +0000 (+0000)
Subject: use yyerror() instead of croak() so that compile-time failures in
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dce40276d967c484e2b36928ff656a2f5ac3647a;p=p5sagit%2Fp5-mst-13.2.git

use yyerror() instead of croak() so that compile-time failures in
my(LIST) don't confuse globals with lexicals

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

diff --git a/op.c b/op.c
index 560a50e..8868057 100644
--- a/op.c
+++ b/op.c
@@ -147,7 +147,7 @@ pad_allocmy(char *name)
 	    name[2] = toCTRL(name[1]);
 	    name[1] = '^';
 	}
-	croak("Can't use global %s in \"my\"",name);
+	yyerror(form("Can't use global %s in \"my\"",name));
     }
     if (ckWARN(WARN_UNSAFE) && AvFILLp(PL_comppad_name) >= 0) {
 	SV **svp = AvARRAY(PL_comppad_name);
@@ -170,7 +170,8 @@ pad_allocmy(char *name)
     sv_setpv(sv, name);
     if (PL_in_my_stash) {
 	if (*name != '$')
-	    croak("Can't declare class for non-scalar %s in \"my\"",name);
+	    yyerror(form("Can't declare class for non-scalar %s in \"my\"",
+			 name));
 	SvOBJECT_on(sv);
 	(void)SvUPGRADE(sv, SVt_PVMG);
 	SvSTASH(sv) = (HV*)SvREFCNT_inc(PL_in_my_stash);
diff --git a/toke.c b/toke.c
index f1aca91..d6fc1b8 100644
--- a/toke.c
+++ b/toke.c
@@ -1638,7 +1638,7 @@ int yylex(PERL_YYLEX_PARAM_DECL)
 	*/
 	if (PL_in_my) {
 	    if (strchr(PL_tokenbuf,':'))
-		croak(PL_no_myglob,PL_tokenbuf);
+		yyerror(form(PL_no_myglob,PL_tokenbuf));
 
 	    yylval.opval = newOP(OP_PADANY, 0);
 	    yylval.opval->op_targ = pad_allocmy(PL_tokenbuf);