Change 13882 by jhi@alpha on 2001/12/25 15:45:52
Subject: Re: Not OK 13881
From: [EMAIL PROTECTED] (Andreas J. Koenig)
Date: 25 Dec 2001 07:33:23 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/op.c#467 edit
Differences ...
==== //depot/perl/op.c#467 (text) ====
Index: perl/op.c
--- perl/op.c.~1~ Tue Dec 25 09:00:05 2001
+++ perl/op.c Tue Dec 25 09:00:05 2001
@@ -2044,7 +2044,7 @@
type == OP_RV2AV ||
type == OP_RV2HV) { /* XXX does this let anything illegal in? */
if (cUNOPo->op_first->op_type != OP_GV) { /* MJD 20011224 */
- yyerror(form("Can't declare %s in my", OP_DESC(o)));
+ yyerror(Perl_form(aTHX_ "Can't declare %s in my", OP_DESC(o)));
}
if (attrs) {
GV *gv = cGVOPx_gv(cUNOPo->op_first);
End of Patch.
