diff options
author | Jerry D. Hedden <jdhedden@cpan.org> | 2010-10-26 15:58:55 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-26 15:58:55 -0700 |
commit | 021897e0cddffa1615b83551abd2136c5f0fbeee (patch) | |
tree | 240c582f6eafb62d8be231105dbaeb4271a8419c /t/io | |
parent | 8ff33955047e041e6195abad9184b13c293b7c8b (diff) | |
download | perl-021897e0cddffa1615b83551abd2136c5f0fbeee.tar.gz |
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.
Diffstat (limited to 't/io')
-rw-r--r-- | t/io/defout.t | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/t/io/defout.t b/t/io/defout.t index dda3b4c997..a36872e2e5 100644 --- a/t/io/defout.t +++ b/t/io/defout.t @@ -25,12 +25,13 @@ $stderr = 1; # whoops, PL_defoutgv no longer a GV! ok print(""), 'print'; ok select(), 'select'; + $a = 'fooo'; format STDERR = -#@<< -$a; +@ @<< +"#", $a . -ok ! write(), 'write'; +ok((write())[0], 'write'); ok($^, '$^'); ok($~, '$~'); |