| Subject: | [PATCH] Sync wtih bleadperl |
Somewhere along the way, bleadperl has gotten out of sync with
Filter::Util::Call. Below is the patch that brought us out of sync. To
see the ticket, please go to
<http://rt.perl.org/rt3//Ticket/Display.html?id=50430>.
Thanks,
Steve Peters
Change 33341 by steveh@maldoror 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) ====
@@ -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) ====
@@ -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 ;