summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-11-20 18:03:43 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-11-20 18:03:43 +0000
commitfab01b8e4080035d4784d26a98f32ff7082031b0 (patch)
tree8da9243bf180fb11a4707ca6b230be0dafc7a158 /op.c
parentc299b123cd6e3886232946bdd1358fb0b6b7a0a6 (diff)
downloadperl-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.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/op.c b/op.c
index 32bf1d8c2a..20948c7c46 100644
--- a/op.c
+++ b/op.c
@@ -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) {