develooper Front page | perl.perl5.porters | Postings from June 2008

Re: [perl #22977] Bug in format/write

Thread Previous
From:
andreas.koenig.7os6VVqR
Date:
June 28, 2008 19:08
Subject:
Re: [perl #22977] Bug in format/write
Message ID:
878wwpqp08.fsf@k75.linux.bogus
>>>>> On Fri, 27 Jun 2008 12:04:09 -0700, "Bram via RT" <perlbug-followup@perl.org> said:

  > It appears that things got worse for 5.10.0/blead...

Binary search reveals...

----Program----
sub f ($); # Comment out to get right result!
sub f ($) {
        my $test = $_[0];
        write;
        format STDOUT =
@<<<<<<<
$test
.
}
f(1);
f(2);

----Output of .../pMZAcVt/perl-5.8.0@19648/bin/perl----
1
1

----EOF ($?='0')----
----Output of .../pgL2gwc/perl-5.8.0@19649/bin/perl----

----EOF ($?='11')----


Change 19649 by rgs@rgs-home on 2003/05/31 18:33:07

	Subject: [PATCH] jumbo closure patch broke formats
	From: Dave Mitchell <davem@fdgroup.com>
	Date: Sat, 31 May 2003 19:54:48 +0100
	Message-ID: <20030531185448.GA6055@fdgroup.com>
	Plus restore the original test script for bug #22372



-- 
andreas

Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About