From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Thu, 18 Jan 2007 16:52:37 +0000 (+0000)
Subject: Add missing SVfARG()s in require_tie_mod().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5ea311549f31198b7d212726049e2499952eee98;p=p5sagit%2Fp5-mst-13.2.git

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