From f534f471f1e3b8117085d42206e4912dad842650 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Fri, 7 Jan 2005 12:38:30 +0000
Subject: More filehandle cleanup

---
 Packdrakeng.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.1