summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm4
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;