summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2002-12-26 21:16:27 +0000
committerhv <hv@crypt.org>2003-01-07 09:20:22 +0000
commit35c1215df9ec9cb54402afdda4ed360fdbf58539 (patch)
tree428c7477ff36d5e64082475edd727fed8e983bb8 /toke.c
parent6e6ef6b23f1f2cc3827f9559a7259c79757c4116 (diff)
downloadperl-35c1215df9ec9cb54402afdda4ed360fdbf58539.tar.gz
%_ (was Re: [PATCH] operation on `PL_na' may be undefined)
Message-ID: <20021226211626.GD284@Bagpuss.unfortu.net> p4raw-id: //depot/perl@18456
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/toke.c b/toke.c
index cb8fbea150..641e3e37b3 100644
--- a/toke.c
+++ b/toke.c
@@ -5037,8 +5037,8 @@ Perl_yylex(pTHX)
d[tmp] = '\0';
if (bad_proto && ckWARN(WARN_SYNTAX))
Perl_warner(aTHX_ packWARN(WARN_SYNTAX),
- "Illegal character in prototype for %s : %s",
- SvPVX(PL_subname), d);
+ "Illegal character in prototype for %"SVf" : %s",
+ PL_subname, d);
SvCUR(PL_lex_stuff) = tmp;
have_proto = TRUE;