Upgrade to Encode 2.00.

[p5sagit/p5-mst-13.2.git] / ext / Encode / t / enc_module.t

diff --git a/ext/Encode/t/enc_module.t b/ext/Encode/t/enc_module.t
index 6afed81..7cc150c 100644 (file)
--- a/ext/Encode/t/enc_module.t
+++ b/ext/Encode/t/enc_module.t
@@ -1,4 +1,4 @@
-# $Id: enc_module.t,v 1.5 2003/04/24 17:43:16 dankogai Exp $
+# $Id: enc_module.t,v 2.0 2004/05/16 20:55:18 dankogai Exp $
 # This file is in euc-jp
 BEGIN {
     require Config; import Config;
@@ -41,6 +41,11 @@ print $obj->str, "\n";
 $obj->set("¥Æ¥¹¥Èʸ»úÎó");
 print $obj->str, "\n";
 
+# Please do not move this to a point after the comparison -- Craig Berry
+# and "unless $^O eq 'freebsd'" is needed for FreeBSD (toy-)?thread
+# -- dankogai
+close STDOUT unless $^O eq 'freebsd';
+
 my $cmp = compare_text($file0, $file1);
 is($cmp, 0, "encoding vs. STDOUT");
 
@@ -53,9 +58,6 @@ while(<STDIN>){
     is ($cmp[$i++], $_, "encoding vs. STDIN - $i");
 }
 
-# I have tested and found "unless $^O eq 'freebsd'" is not
-# necessary but I will leave it for the sake of Enache -- dankogai
-close STDOUT unless $^O eq 'freebsd';
 unlink $file1 unless $cmp;
 __END__