was Re: [Fwd: CPAN Upload: J/JP/JPEACOCK/version-0.36.tar.gz]

[p5sagit/p5-mst-13.2.git] / t / comp / multiline.t

diff --git a/t/comp/multiline.t b/t/comp/multiline.t
index 742ba49..78820c4 100755 (executable)
--- a/t/comp/multiline.t
+++ b/t/comp/multiline.t
@@ -26,7 +26,7 @@ $y = 'now is the time' . "\n" .
 is($x, $y,  'test data is sane');
 
 print TRY $x;
-close TRY;
+close TRY or die "Could not close: $!";
 
 open(TRY,'Comp.try') || (die "Can't reopen temp file.");
 $count = 0;