Change 32912 by [EMAIL PROTECTED] on 2008/01/09 11:34:41
newSV() + sv_upgrade() => newSV_type()
Affected files ...
... //depot/perl/pp_ctl.c#652 edit
Differences ...
==== //depot/perl/pp_ctl.c#652 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c#651~32910~ 2008-01-09 02:11:10.000000000 -0800
+++ perl/pp_ctl.c 2008-01-09 03:34:41.000000000 -0800
@@ -3209,8 +3209,7 @@
if (vms_unixname)
#endif
{
- namesv = newSV(0);
- sv_upgrade(namesv, SVt_PV);
+ namesv = newSV_type(SVt_PV);
for (i = 0; i <= AvFILL(ar); i++) {
SV * const dirsv = *av_fetch(ar, i, TRUE);
End of Patch.
