1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/runlevel.t b/t/op/runlevel.t
index 03e253e6e6..6a10e8b4ab 100755
--- a/t/op/runlevel.t
+++ b/t/op/runlevel.t
@@ -31,7 +31,7 @@ for (@prgs){
     my($prog,$expected) = split(/\nEXPECT\n/, $_);
     open TEST, ">$tmpfile";
     print TEST "$prog\n";
-    close TEST;
+    close TEST or die "Could not close: $!";
     my $results = $Is_VMS ?
                       `MCR $^X "-I[-.lib]" $switch $tmpfile 2>&1` :
 		  $Is_MSWin32 ?