From d80182fb067de110a09af88969ab9844e11ce21d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 25 Oct 1999 22:59:18 +0000
Subject: no_comment

---
 perl-install/resize_fat/io.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/resize_fat/io.pm')

diff --git a/perl-install/resize_fat/io.pm b/perl-install/resize_fat/io.pm
index 7255bc437..8cf21d929 100644
--- a/perl-install/resize_fat/io.pm
+++ b/perl-install/resize_fat/io.pm
@@ -70,5 +70,5 @@ sub open($) {
     check_mounted($fs->{device});
 
     sysopen F, $fs->{fs_name}, 2 or sysopen F, $fs->{fs_name}, 0 or die "error opening device $fs->{fs_name} for writing\n";
-    $fs->{fd} = \*F;
+    $fs->{fd} = *F;
 }
-- 
cgit v1.2.1