This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4d2eb54
)
Revert "[PATCH] Cleanup output from t/io/defout.t RT#78572"
author
Father Chrysostomos
<sprout@cpan.org>
Tue, 26 Oct 2010 22:57:06 +0000
(15:57 -0700)
committer
Father Chrysostomos
<sprout@cpan.org>
Tue, 26 Oct 2010 22:57:06 +0000
(15:57 -0700)
This reverts commit
4d2eb54d4d30c9c5b093de9a57c324d5551c58fe
.
t/io/defout.t
patch
|
blob
|
blame
|
history
diff --git
a/t/io/defout.t
b/t/io/defout.t
index
ea59f72
..
dda3b4c
100644
(file)
--- a/
t/io/defout.t
+++ b/
t/io/defout.t
@@
-12,7
+12,8
@@
BEGIN {
require './test.pl';
}
-plan tests => 17;
+plan tests => 16;
+
my $stderr = *STDERR;
select($stderr);
@@
-24,12
+25,12
@@
$stderr = 1; # whoops, PL_defoutgv no longer a GV!
ok print(""), 'print';
ok select(), 'select';
-
next_test()
;
+
$a = 'fooo'
;
format STDERR =
#@<<
-ok 3
+$a;
.
-ok ! write();
+ok ! write()
, 'write'
;
ok($^, '$^');
ok($~, '$~');