Add missing SVfARG()s in require_tie_mod().

p4raw-id: //depot/perl@29875

diff --git a/gv.c b/gv.c
index 4332df9..9c33b42 100644 (file)
--- 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;
 }