diff options
Diffstat (limited to 't/op/anonsub.t')
| -rwxr-xr-x | t/op/anonsub.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/anonsub.t b/t/op/anonsub.t index fef40f935a..8eca75b811 100755 --- a/t/op/anonsub.t +++ b/t/op/anonsub.t @@ -26,7 +26,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 ? |