Change 29875 by [EMAIL PROTECTED] on 2007/01/18 16:52:37
Add missing SVfARG()s in require_tie_mod().
Affected files ...
... //depot/perl/gv.c#345 edit
Differences ...
==== //depot/perl/gv.c#345 (text) ====
Index: perl/gv.c
--- perl/gv.c#344~29831~ 2007-01-15 08:26:17.000000000 -0800
+++ perl/gv.c 2007-01-18 08:52:37.000000000 -0800
@@ -697,10 +697,10 @@
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;
}
End of Patch.
