From 35c1215df9ec9cb54402afdda4ed360fdbf58539 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Thu, 26 Dec 2002 21:16:27 +0000 Subject: %_ (was Re: [PATCH] operation on `PL_na' may be undefined) Message-ID: <20021226211626.GD284@Bagpuss.unfortu.net> p4raw-id: //depot/perl@18456 --- perl.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'perl.c') diff --git a/perl.c b/perl.c index 2e3de84f16..8b73d25fad 100644 --- a/perl.c +++ b/perl.c @@ -3908,7 +3908,6 @@ Perl_call_list(pTHX_ I32 oldscope, AV *paramList) atsv = ERRSV; (void)SvPV(atsv, len); if (len) { - STRLEN n_a; PL_curcop = &PL_compiling; CopLINE_set(PL_curcop, oldline); if (paramList == PL_beginav) @@ -3922,7 +3921,7 @@ Perl_call_list(pTHX_ I32 oldscope, AV *paramList) while (PL_scopestack_ix > oldscope) LEAVE; JMPENV_POP; - Perl_croak(aTHX_ "%s", SvPVx(atsv, n_a)); + Perl_croak(aTHX_ "%"SVf"", atsv); } break; case 1: -- cgit v1.2.1