diff options
| author | Andreas König <a.koenig@mind.de> | 2001-12-29 22:42:37 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-29 20:22:57 +0000 |
| commit | d1e4d418969ad3c5103f26f33d0abea5b1570935 (patch) | |
| tree | a0d4611eb75d8f94e2d42291b944bf356edb8c70 /lib/strict.t | |
| parent | cb69f87a007debfba124ee7db6ef7f6a2ac42df7 (diff) | |
| download | perl-d1e4d418969ad3c5103f26f33d0abea5b1570935.tar.gz | |
cleaner close on tests, take 2
Message-ID: <m33d1tvjuq.fsf@anima.de>
(except for the three DB_File patch fragments)
p4raw-id: //depot/perl@13940
Diffstat (limited to 'lib/strict.t')
| -rw-r--r-- | lib/strict.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/strict.t b/lib/strict.t index 3a0a2eca8f..f03271b536 100644 --- a/lib/strict.t +++ b/lib/strict.t @@ -31,7 +31,7 @@ foreach (sort glob($^O eq 'MacOS' ? ":lib::strict:*" : "lib/strict/*")) { local $/ = undef; @prgs = (@prgs, split "\n########\n", <F>) ; } - close F ; + close F or die "Could not close: $!" ; } undef $/; @@ -59,7 +59,7 @@ for (@prgs){ push @temps, $filename ; open F, ">$filename" or die "Cannot open $filename: $!\n" ; print F $code ; - close F ; + close F or die "Could not close: $!" ; } shift @files ; $prog = shift @files ; @@ -67,7 +67,7 @@ for (@prgs){ } open TEST, ">$tmpfile"; print TEST $prog,"\n"; - close TEST; + close TEST or die "Could not close: $!"; my $results = $Is_MSWin32 ? `.\\perl -I../lib $switch $tmpfile 2>&1` : $^O eq 'NetWare' ? |