another spin on the enc_module.t merry-go-round

From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3EA88ADC.3000300@mac.com>

p4raw-id: //depot/perl@19330

diff --git a/ext/Encode/t/enc_module.t b/ext/Encode/t/enc_module.t
index 6afed81..d444f40 100644 (file)
--- a/ext/Encode/t/enc_module.t
+++ b/ext/Encode/t/enc_module.t
@@ -41,6 +41,11 @@ print $obj->str, "\n";
 $obj->set("¥Æ¥¹¥Èʸ»úÎó");
 print $obj->str, "\n";
 
+# I have tested and found "unless $^O eq 'freebsd'" is not
+# necessary but I will leave it for the sake of Enache -- dankogai
+# Please do not move this to a point after the comparison -- Craig Berry
+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__