Change 33341 by [EMAIL PROTECTED] on 2008/02/21 17:53:05
Fix [perl #50430].
Not 100% sure this is right, but it fixes the bug without breaking
any tests so hopefully it's at least better than it was before.
Affected files ...
... //depot/perl/ext/Filter/Util/Call/Call.pm#12 edit
... //depot/perl/ext/Filter/Util/Call/Call.xs#10 edit
Differences ...
==== //depot/perl/ext/Filter/Util/Call/Call.pm#12 (text) ====
Index: perl/ext/Filter/Util/Call/Call.pm
--- perl/ext/Filter/Util/Call/Call.pm#11~31567~ 2007-07-09 01:00:17.000000000
-0700
+++ perl/ext/Filter/Util/Call/Call.pm 2008-02-21 09:53:05.000000000 -0800
@@ -18,7 +18,7 @@
@ISA = qw(Exporter DynaLoader);
@EXPORT = qw( filter_add filter_del filter_read filter_read_exact) ;
-$VERSION = "1.07" ;
+$VERSION = "1.07_01" ;
sub filter_read_exact($)
{
==== //depot/perl/ext/Filter/Util/Call/Call.xs#10 (text) ====
Index: perl/ext/Filter/Util/Call/Call.xs
--- perl/ext/Filter/Util/Call/Call.xs#9~32864~ 2008-01-05 21:46:02.000000000
-0800
+++ perl/ext/Filter/Util/Call/Call.xs 2008-02-21 09:53:05.000000000 -0800
@@ -127,7 +127,7 @@
SAVESPTR(DEFSV) ; /* save $_ */
/* make $_ use our buffer */
- DEFSV = sv_2mortal(newSVpv("", 0)) ;
+ DEFSV = newSVpv("", 0) ;
PUSHMARK(sp) ;
@@ -157,6 +157,8 @@
if (SvCUR(DEFSV))
sv_setpvn(my_sv, SvPVX(DEFSV), SvCUR(DEFSV)) ;
+ sv_2mortal(DEFSV);
+
PUTBACK ;
FREETMPS ;
LEAVE ;
End of Patch.
