summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarcus Holland-Moritz <mhx-perl@gmx.net>2007-01-18 16:52:37 +0000
committerMarcus Holland-Moritz <mhx-perl@gmx.net>2007-01-18 16:52:37 +0000
commit5ea311549f31198b7d212726049e2499952eee98 (patch)
tree78b4a3764ecb62206e8f045329ab2339acef79ff
parentea724faac0e9bd1598db5c1f1c5bd689c0be70fc (diff)
downloadperl-5ea311549f31198b7d212726049e2499952eee98.tar.gz
Add missing SVfARG()s in require_tie_mod().
p4raw-id: //depot/perl@29875
-rw-r--r--gv.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/gv.c b/gv.c
index 4332df9b4e..9c33b423c9 100644
--- a/gv.c
+++ b/gv.c
@@ -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;
}