summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-11-23 18:18:08 +0000
committerFrancois Pons <fpons@mandriva.com>2000-11-23 18:18:08 +0000
commitee88006a37dcc52504252ca91ef1789a509e1e20 (patch)
tree4222394d2b8c44ae5ff705488c912778c694f470 /perl-install/install_any.pm
parent440207e11b86fa9756b9b7f2454ab716e756387f (diff)
downloaddrakx-ee88006a37dcc52504252ca91ef1789a509e1e20.tar
drakx-ee88006a37dcc52504252ca91ef1789a509e1e20.tar.gz
drakx-ee88006a37dcc52504252ca91ef1789a509e1e20.tar.bz2
drakx-ee88006a37dcc52504252ca91ef1789a509e1e20.tar.xz
drakx-ee88006a37dcc52504252ca91ef1789a509e1e20.zip
removed some ugly logs.
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm3
1 files changed, 0 insertions, 3 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index cc1305627..6402aa4da 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -122,14 +122,12 @@ sub getFile {
do {
if ($method =~ /crypto/i) {
require crypto;
- log::l("crypto::getFile $f");
crypto::getFile($f);
} elsif ($::o->{method} eq "ftp") {
require ftp;
ftp::getFile($rel);
} elsif ($::o->{method} eq "http") {
require http;
- log::l("http getFile $f");
http::getFile($rel);
} else {
#- try to open the file, but examine if it is present in the repository, this allow
@@ -137,7 +135,6 @@ sub getFile {
#- to other to avoid media change...
my $f2 = "$postinstall_rpms/$f";
$f2 = "/tmp/rhimage/$rel" unless $postinstall_rpms && -e $f2;
- log::l("local getFile $f2");
open GETFILE, $f2 and *GETFILE;
}
} || errorOpeningFile($f);