diff options
author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2007-01-18 16:52:37 +0000 |
---|---|---|
committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2007-01-18 16:52:37 +0000 |
commit | 5ea311549f31198b7d212726049e2499952eee98 (patch) | |
tree | 78b4a3764ecb62206e8f045329ab2339acef79ff | |
parent | ea724faac0e9bd1598db5c1f1c5bd689c0be70fc (diff) | |
download | perl-5ea311549f31198b7d212726049e2499952eee98.tar.gz |
Add missing SVfARG()s in require_tie_mod().
p4raw-id: //depot/perl@29875
-rw-r--r-- | gv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -697,10 +697,10 @@ S_require_tie_mod(pTHX_ GV *gv, const char *varpv, SV* namesv, const char *methp stash = gv_stashsv(namesv, FALSE); if (!stash) Perl_croak( aTHX_ "panic: Can't use %%%s because %"SVf" is not available", - varpv, module); + varpv, SVfARG(module)); else if (!gv_fetchmethod(stash, methpv)) Perl_croak( aTHX_ "panic: Can't use %%%s because %"SVf" does not support method %s", - varpv, module, methpv); + varpv, SVfARG(module), methpv); } return stash; } |