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_sys.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_sys.c')
| -rw-r--r-- | pp_sys.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -762,7 +762,6 @@ PP(pp_tie) char *methname; int how = PERL_MAGIC_tied; U32 items; - STRLEN n_a; varsv = *++MARK; switch(SvTYPE(varsv)) { @@ -809,8 +808,8 @@ PP(pp_tie) */ stash = gv_stashsv(*MARK, FALSE); if (!stash || !(gv = gv_fetchmethod(stash, methname))) { - DIE(aTHX_ "Can't locate object method \"%s\" via package \"%s\"", - methname, SvPV(*MARK,n_a)); + DIE(aTHX_ "Can't locate object method \"%s\" via package \"%"SVf"\"", + methname, *MARK); } ENTER; PUSHSTACKi(PERLSI_MAGIC); |