Eeek. You were too fast for me. This should be reverted and the "improved" patch that I posted should be applied. Sorry about that.
On Tue, Oct 26, 2010 at 17:13, Chris 'Bingos' Williams <ch...@bingosnet.co.uk> wrote: > In perl.git, the branch blead has been updated > > <http://perl5.git.perl.org/perl.git/commitdiff/4d2eb54d4d30c9c5b093de9a57c324d5551c58fe?hp=59d53fd6002cff7136e93d0aa337abc97be636dd> > > - Log ----------------------------------------------------------------- > commit 4d2eb54d4d30c9c5b093de9a57c324d5551c58fe > Author: Jerry D. Hedden <jdhed...@cpan.org> > Date: Tue Oct 26 22:11:32 2010 +0100 > > [PATCH] Cleanup output from t/io/defout.t RT#78572 > > t/io/defout.t pollutes the output of 'make test': > > t/io/defout....................................................$a; > # write > ok > > The attached patch fixes this. > > Signed-off-by: Chris 'BinGOs' Williams <ch...@bingosnet.co.uk> > ----------------------------------------------------------------------- > > Summary of changes: > t/io/defout.t | 9 ++++----- > 1 files changed, 4 insertions(+), 5 deletions(-) > > diff --git a/t/io/defout.t b/t/io/defout.t > index dda3b4c..ea59f72 100644 > --- a/t/io/defout.t > +++ b/t/io/defout.t > @@ -12,8 +12,7 @@ BEGIN { > require './test.pl'; > } > > -plan tests => 16; > - > +plan tests => 17; > > my $stderr = *STDERR; > select($stderr); > @@ -25,12 +24,12 @@ $stderr = 1; # whoops, PL_defoutgv no longer a GV! > > ok print(""), 'print'; > ok select(), 'select'; > -$a = 'fooo'; > +next_test(); > format STDERR = > #@<< > -$a; > +ok 3 > . > -ok ! write(), 'write'; > +ok ! write(); > > ok($^, '$^'); > ok($~, '$~'); > > -- > Perl5 Master Repository >