diff options
| author | Nicholas Clark <nick@ccl4.org> | 2002-12-26 21:16:27 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2003-01-07 09:20:22 +0000 |
| commit | 35c1215df9ec9cb54402afdda4ed360fdbf58539 (patch) | |
| tree | 428c7477ff36d5e64082475edd727fed8e983bb8 /sv.c | |
| parent | 6e6ef6b23f1f2cc3827f9559a7259c79757c4116 (diff) | |
| download | perl-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 'sv.c')
| -rw-r--r-- | sv.c | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -6911,7 +6911,7 @@ Perl_sv_2io(pTHX_ SV *sv) else io = 0; if (!io) - Perl_croak(aTHX_ "Bad filehandle: %s", SvPV(sv,n_a)); + Perl_croak(aTHX_ "Bad filehandle: %"SVf, sv); break; } return io; @@ -6992,7 +6992,8 @@ Perl_sv_2cv(pTHX_ SV *sv, HV **st, GV **gvp, I32 lref) Nullop); LEAVE; if (!GvCVu(gv)) - Perl_croak(aTHX_ "Unable to create sub named \"%s\"", SvPV(sv,n_a)); + Perl_croak(aTHX_ "Unable to create sub named \"%"SVf"\"", + sv); } return GvCVu(gv); } @@ -8718,8 +8719,8 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV if (!args && ckWARN(WARN_PRINTF) && (PL_op->op_type == OP_PRTF || PL_op->op_type == OP_SPRINTF)) { SV *msg = sv_newmortal(); - Perl_sv_setpvf(aTHX_ msg, "Invalid conversion in %s: ", - (PL_op->op_type == OP_PRTF) ? "printf" : "sprintf"); + Perl_sv_setpvf(aTHX_ msg, "Invalid conversion in %sprintf: ", + (PL_op->op_type == OP_PRTF) ? "" : "s"); if (c) { if (isPRINT(c)) Perl_sv_catpvf(aTHX_ msg, |