summaryrefslogtreecommitdiff
path: root/ext/Encode
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2003-04-02 04:42:40 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2003-04-02 04:42:40 +0000
commit65571878b040d78e1f4e2b0ef9bb7a844bdc5297 (patch)
treefd5ad8da71efc05db00ba36e95caffa8e19b17a5 /ext/Encode
parent0653e11b5f709a41c69210a1f63f641f2e63afd4 (diff)
downloadperl-65571878b040d78e1f4e2b0ef9bb7a844bdc5297.tar.gz
Cannot portably compare files if one of them is still open
(from Craig Berry). p4raw-id: //depot/perl@19130
Diffstat (limited to 'ext/Encode')
-rw-r--r--ext/Encode/t/enc_module.t2
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__