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 /pp_ctl.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 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1820,7 +1820,7 @@ PP(pp_return) /* Unassume the success we assumed earlier. */ SV *nsv = cx->blk_eval.old_namesv; (void)hv_delete(GvHVn(PL_incgv), SvPVX(nsv), SvCUR(nsv), G_DISCARD); - DIE(aTHX_ "%s did not return a true value", SvPVX(nsv)); + DIE(aTHX_ "%"SVf" did not return a true value", nsv); } break; case CXt_FORMAT: @@ -2112,7 +2112,7 @@ PP(pp_goto) goto retry; tmpstr = sv_newmortal(); gv_efullname3(tmpstr, gv, Nullch); - DIE(aTHX_ "Goto undefined subroutine &%s",SvPVX(tmpstr)); + DIE(aTHX_ "Goto undefined subroutine &%"SVf"",tmpstr); } DIE(aTHX_ "Goto undefined subroutine"); } @@ -3367,7 +3367,7 @@ PP(pp_leaveeval) /* Unassume the success we assumed earlier. */ SV *nsv = cx->blk_eval.old_namesv; (void)hv_delete(GvHVn(PL_incgv), SvPVX(nsv), SvCUR(nsv), G_DISCARD); - retop = Perl_die(aTHX_ "%s did not return a true value", SvPVX(nsv)); + retop = Perl_die(aTHX_ "%"SVf" did not return a true value", nsv); /* die_where() did LEAVE, or we won't be here */ } else { |