This queue is for tickets about the Filter CPAN distribution.

Report information
The Basics
Id:
36375
Status:
resolved
Priority:
Low/Low
Queue:

People
Owner:
Nobody in particular
Requestors:
SMPETERS [...] cpan.org
Cc:
AdminCc:

BugTracker
Severity:
(no value)
Broken in:
(no value)
Fixed in:
(no value)



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 ;


This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.