projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0653e11
)
Cannot portably compare files if one of them is still open
author
Jarkko Hietaniemi
<jhi@iki.fi>
Wed, 2 Apr 2003 04:42:40 +0000
(
04:42
+0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Wed, 2 Apr 2003 04:42:40 +0000
(
04:42
+0000)
(from Craig Berry).
p4raw-id: //depot/perl@19130
ext/Encode/t/enc_module.t
patch
|
blob
|
history
diff --git
a/ext/Encode/t/enc_module.t
b/ext/Encode/t/enc_module.t
index
ac9bf3c
..
0910029
100644
(file)
--- 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__