From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 24 Apr 2003 20:09:48 +0000 (-0500)
Subject: another spin on the enc_module.t merry-go-round
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=196fd07f98ca6f157437e588cd29e6575e123584;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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__