Skip Menu |
 

This queue is for tickets about the Filter CPAN distribution.

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

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

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: [PATCH] Sync wtih bleadperl
Download (untitled) / with headers
text/plain 1.2k
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 is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

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