From 6ea8fa25e7309054300bb71f2dd799f0ed9dd728 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 10 Aug 2002 16:59:47 +0000
Subject: workaround perl bug another way

---
 perl-install/install_any.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index d2f1c2496..80b2d92e3 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -876,8 +876,8 @@ sub loadO {
     } else {
 	-e "$f.pl" and $f .= ".pl" unless -e $f;
 
-	local *F; #- keep it outside the following do else filehandle will be closed before reading.
-	my $fh = -e $f ? do { open F, $f; *F } : getFile($f) or die _("Error reading file %s", $f);
+	my $fh;
+	if (-e $f) { open $fh, $f } else { $fh = getFile($f) or die _("Error reading file %s", $f) }
 	{
 	    local $/ = "\0";
 	    no strict;
-- 
cgit v1.2.1