diff options
| author | Andreas König <a.koenig@mind.de> | 2001-12-27 10:47:30 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-27 13:53:25 +0000 |
| commit | f126f811c9f2a4fefd11f07d5e3babaa75ee3158 (patch) | |
| tree | 565d20a02de75df76277c1efd376ea3273255a48 /t/cmd | |
| parent | a3b148a77585ec318bea1a1177fac768aa97d1a0 (diff) | |
| download | perl-f126f811c9f2a4fefd11f07d5e3babaa75ee3158.tar.gz | |
[PATCH] check return of close
Date: 27 Dec 2001 09:47:30 +0100
Message-ID: <m3ellhgicd.fsf@anima.de>
Subject: [PATCH] improve error reporting
From: andreas.koenig@anima.de (Andreas J. Koenig)
Date: 27 Dec 2001 09:54:55 +0100
Message-ID: <m3adw5gi00.fsf@anima.de>
Subject: [PATCH] check return value of close
From: andreas.koenig@anima.de (Andreas J. Koenig)
Date: 27 Dec 2001 10:03:55 +0100
Message-ID: <m3666tghl0.fsf@anima.de>
Subject: [PATCH] return of close
From: andreas.koenig@anima.de (Andreas J. Koenig)
Date: 27 Dec 2001 10:22:15 +0100
Message-ID: <m31yhhggqg.fsf@anima.de>
p4raw-id: //depot/perl@13904
Diffstat (limited to 't/cmd')
| -rwxr-xr-x | t/cmd/subval.t | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/t/cmd/subval.t b/t/cmd/subval.t index 3c60690ebf..67a4ebfdf3 100755 --- a/t/cmd/subval.t +++ b/t/cmd/subval.t @@ -114,14 +114,14 @@ package main; $i = 28; open(FOO,">Cmd_subval.tmp"); print FOO "blah blah\n"; -close FOO; +close FOO or die "Can't close Cmd_subval.tmp: $!"; &file_main(*F); -close F; +close F or die "Can't close: $!"; &info_main; &file_package(*F); -close F; +close F or die "Can't close: $!"; &info_package; unlink 'Cmd_subval.tmp'; @@ -129,7 +129,7 @@ unlink 'Cmd_subval.tmp'; sub file_main { local(*F) = @_; - open(F, 'Cmd_subval.tmp') || die "can't open\n"; + open(F, 'Cmd_subval.tmp') || die "can't open: $!\n"; $i++; eof F ? print "not ok $i\n" : print "ok $i\n"; } @@ -137,11 +137,11 @@ sub file_main { sub info_main { local(*F); - open(F, 'Cmd_subval.tmp') || die "test: can't open\n"; + open(F, 'Cmd_subval.tmp') || die "test: can't open: $!\n"; $i++; eof F ? print "not ok $i\n" : print "ok $i\n"; &iseof(*F); - close F; + close F or die "Can't close: $!"; } sub iseof { @@ -156,7 +156,7 @@ sub iseof { sub main'file_package { local(*F) = @_; - open(F, 'Cmd_subval.tmp') || die "can't open\n"; + open(F, 'Cmd_subval.tmp') || die "can't open: $!\n"; $main'i++; eof F ? print "not ok $main'i\n" : print "ok $main'i\n"; } @@ -164,7 +164,7 @@ sub iseof { sub main'info_package { local(*F); - open(F, 'Cmd_subval.tmp') || die "can't open\n"; + open(F, 'Cmd_subval.tmp') || die "can't open: $!\n"; $main'i++; eof F ? print "not ok $main'i\n" : print "ok $main'i\n"; &iseof(*F); |