From 7d56fa27e47bc2cdccb19481035a5478e26247e0 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 25 Nov 2002 14:44:09 +0000
Subject: make it work (changed *F => *GETFILE and added a return) else perl
 has some problem using it as reference to file handle.

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

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index a5a185759..ac79f3f2d 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -127,7 +127,7 @@ sub getFile {
 	    #- to other to avoid media change...
 	    my $f2 = "$postinstall_rpms/$f";
 	    $f2 = "/tmp/image/$rel" if !$postinstall_rpms || !-e $f2;
-	    local *F; open F, $f2 and *F;
+	    local *GETFILE; open GETFILE, $f2 and return *GETFILE;
 	}
     } || errorOpeningFile($f);
 }
-- 
cgit v1.2.1