diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-01-07 12:38:30 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-01-07 12:38:30 +0000 |
| commit | f534f471f1e3b8117085d42206e4912dad842650 (patch) | |
| tree | 6d6c40b9e97290e5ef5c744b480d9dba23bf3571 /Packdrakeng.pm | |
| parent | a035820bcdc4dcbaf8a36c23ea1d724adf6cf4bc (diff) | |
| download | rpmtools-f534f471f1e3b8117085d42206e4912dad842650.tar rpmtools-f534f471f1e3b8117085d42206e4912dad842650.tar.gz rpmtools-f534f471f1e3b8117085d42206e4912dad842650.tar.bz2 rpmtools-f534f471f1e3b8117085d42206e4912dad842650.tar.xz rpmtools-f534f471f1e3b8117085d42206e4912dad842650.zip | |
More filehandle cleanup
Diffstat (limited to 'Packdrakeng.pm')
| -rw-r--r-- | Packdrakeng.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Packdrakeng.pm b/Packdrakeng.pm index 0eaa6ed..d2427b9 100644 --- a/Packdrakeng.pm +++ b/Packdrakeng.pm @@ -160,7 +160,8 @@ sub DESTROY { my ($pack) = @_; $pack->{subuncompress}($pack, undef, undef); $pack->build_toc(); - close($pack->{handle}) if ($pack->{handle}); + close($pack->{handle}) if $pack->{handle}; + close($pack->{ustream_data}{handle}) if $pack->{ustream_data}{handle}; } # Flush current compressed block |