From d6087ab7446a4dd064964fd82ab6e6ad23157d67 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 9 Aug 2004 03:36:19 +0000
Subject: use $F instead of *F

---
 perl-install/interactive/http.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/perl-install/interactive/http.pm b/perl-install/interactive/http.pm
index b5ade049c..8a453616f 100644
--- a/perl-install/interactive/http.pm
+++ b/perl-install/interactive/http.pm
@@ -108,9 +108,8 @@ sub ask_fromW {
     close STDOUT; # page terminated
 
     while (1) {	
-	local *F;
-	open F, "<$pipe_r" or die;
-	$q = CGI->new(*F);
+	open(my $F, "<$pipe_r") or die;
+	$q = CGI->new($F);
 	$q->param('force_exit_dead_prog') and $o->exit;
 	last if $q->param('uid') == $uid;
 
-- 
cgit v1.2.1