This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add missing SVfARG()s in require_tie_mod().
authorMarcus Holland-Moritz <mhx-perl@gmx.net>
Thu, 18 Jan 2007 16:52:37 +0000 (16:52 +0000)
committerMarcus Holland-Moritz <mhx-perl@gmx.net>
Thu, 18 Jan 2007 16:52:37 +0000 (16:52 +0000)
p4raw-id: //depot/perl@29875

gv.c

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;
 }