diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-20 18:03:43 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-20 18:03:43 +0000 |
commit | fab01b8e4080035d4784d26a98f32ff7082031b0 (patch) | |
tree | 8da9243bf180fb11a4707ca6b230be0dafc7a158 /op.c | |
parent | c299b123cd6e3886232946bdd1358fb0b6b7a0a6 (diff) | |
download | perl-fab01b8e4080035d4784d26a98f32ff7082031b0.tar.gz |
Unify the two warnings "Can't declare %s in %s", in line with what's
documented in perldiag.
p4raw-id: //depot/perl@29330
Diffstat (limited to 'op.c')
-rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1778,7 +1778,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(Perl_form(aTHX_ "Can't declare %s in %s", + yyerror(Perl_form(aTHX_ "Can't declare %s in \"%s\"", OP_DESC(o), PL_in_my == KEY_our ? "our" : PL_in_my == KEY_state ? "state" : "my")); } else if (attrs) { |