diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-10 16:59:47 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-10 16:59:47 +0000 |
| commit | 6ea8fa25e7309054300bb71f2dd799f0ed9dd728 (patch) | |
| tree | 90b1586ae5a37254c7c4890a15577df9a33901be | |
| parent | 8d88a6db0971dcf0d07287408e8ce15fd3481954 (diff) | |
| download | drakx-6ea8fa25e7309054300bb71f2dd799f0ed9dd728.tar drakx-6ea8fa25e7309054300bb71f2dd799f0ed9dd728.tar.gz drakx-6ea8fa25e7309054300bb71f2dd799f0ed9dd728.tar.bz2 drakx-6ea8fa25e7309054300bb71f2dd799f0ed9dd728.tar.xz drakx-6ea8fa25e7309054300bb71f2dd799f0ed9dd728.zip | |
workaround perl bug another way
| -rw-r--r-- | perl-install/install_any.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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; |