From 763acdb292c461fc4a4211ff9618bbb2633f83b9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20K=C3=B6nig?= <a.koenig@mind.de>
Date: Tue, 25 Dec 2001 08:33:23 +0100
Subject: Re: Not OK 13881 Message-ID: <m3bsgnajws.fsf@anima.de>

p4raw-id: //depot/perl@13882
---
 op.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'op.c')

diff --git a/op.c b/op.c
index efb99e0939..ed199b2592 100644
--- a/op.c
+++ b/op.c
@@ -2044,7 +2044,7 @@ S_my_kid(pTHX_ OP *o, OP *attrs, OP **imopsp)
 	       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);
-- 
cgit v1.2.1