diff options
| author | Andreas König <a.koenig@mind.de> | 2001-12-25 08:33:23 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-25 15:45:52 +0000 |
| commit | 763acdb292c461fc4a4211ff9618bbb2633f83b9 (patch) | |
| tree | ae1684e8d25428be352a53ff35fada1d20bee348 /op.c | |
| parent | b6512f489e761186d508cf0b8b7705805cfefc52 (diff) | |
| download | perl-763acdb292c461fc4a4211ff9618bbb2633f83b9.tar.gz | |
Re: Not OK 13881
Message-ID: <m3bsgnajws.fsf@anima.de>
p4raw-id: //depot/perl@13882
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |