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 /ext/Devel | |
| 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 'ext/Devel')
| -rw-r--r-- | ext/Devel/DProf/DProf.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Devel/DProf/DProf.t b/ext/Devel/DProf/DProf.t index be711f1330..5ecba68b5b 100644 --- a/ext/Devel/DProf/DProf.t +++ b/ext/Devel/DProf/DProf.t @@ -49,7 +49,7 @@ sub profile { my $t_start = new Benchmark; open( R, "$perl \"$opt_d\" $test |" ) || warn "$0: Can't run. $!\n"; @results = <R>; - close R; + close R or warn "Could not close: $!"; my $t_total = timediff( new Benchmark, $t_start ); if( $opt_v ){ |