diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-02 04:42:40 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-02 04:42:40 +0000 |
| commit | 65571878b040d78e1f4e2b0ef9bb7a844bdc5297 (patch) | |
| tree | fd5ad8da71efc05db00ba36e95caffa8e19b17a5 | |
| parent | 0653e11b5f709a41c69210a1f63f641f2e63afd4 (diff) | |
| download | perl-65571878b040d78e1f4e2b0ef9bb7a844bdc5297.tar.gz | |
Cannot portably compare files if one of them is still open
(from Craig Berry).
p4raw-id: //depot/perl@19130
| -rw-r--r-- | ext/Encode/t/enc_module.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Encode/t/enc_module.t b/ext/Encode/t/enc_module.t index ac9bf3caf1..09100298f2 100644 --- a/ext/Encode/t/enc_module.t +++ b/ext/Encode/t/enc_module.t @@ -38,6 +38,7 @@ open STDOUT, ">", $file1 or die "$file1:$!"; print $obj->str, "\n"; $obj->set("テスト文字列"); print $obj->str, "\n"; +close STDOUT; my $cmp = compare_text($file0, $file1); is($cmp, 0, "encoding vs. STDOUT"); @@ -51,7 +52,6 @@ while(<STDIN>){ is ($cmp[$i++], $_, "encoding vs. STDIN - $i"); } -close STDOUT; unlink $file1 unless $cmp; __END__ |