From 66138cdc6bbd973426a9345c78c8120d9b446670 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 11 Aug 2000 00:27:27 +0000
Subject: no_comment

---
 perl-install/resize_fat/main.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-install/resize_fat')

diff --git a/perl-install/resize_fat/main.pm b/perl-install/resize_fat/main.pm
index c3eee9381..256031228 100644
--- a/perl-install/resize_fat/main.pm
+++ b/perl-install/resize_fat/main.pm
@@ -55,7 +55,11 @@ sub new($$$) {
     bless $fs, $type;
 }
 
-sub DESTROY { resize_fat::c_rewritten::free_all() }
+sub DESTROY {
+    my ($fs) = @_;
+    close $fs->{fd};
+    resize_fat::c_rewritten::free_all();
+}
 
 #- copy all clusters >= <start_cluster> to a new place on the partition, less
 #- than <start_cluster>. Only copies files, not directories.
-- 
cgit v1.2.1