summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-11-25 14:44:09 +0000
committerFrancois Pons <fpons@mandriva.com>2002-11-25 14:44:09 +0000
commit7d56fa27e47bc2cdccb19481035a5478e26247e0 (patch)
treec5ff18363d62d19e2e151bbcacba3805975a4409
parent263dfa3cb909f6f331f9c4ca65e87ec02b861fcd (diff)
downloaddrakx-backup-do-not-use-7d56fa27e47bc2cdccb19481035a5478e26247e0.tar
drakx-backup-do-not-use-7d56fa27e47bc2cdccb19481035a5478e26247e0.tar.gz
drakx-backup-do-not-use-7d56fa27e47bc2cdccb19481035a5478e26247e0.tar.bz2
drakx-backup-do-not-use-7d56fa27e47bc2cdccb19481035a5478e26247e0.tar.xz
drakx-backup-do-not-use-7d56fa27e47bc2cdccb19481035a5478e26247e0.zip
make it work (changed *F => *GETFILE and added a return) else perl has some
problem using it as reference to file handle.
-rw-r--r--perl-install/install_any.pm2
1 files changed, 1 insertions, 1 deletions
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);
}