summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-14 05:16:12 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-14 05:16:12 +0000
commitb4ce2d88f1dfea0311ddeab1314fcb24d0d97b3e (patch)
treed4b2e6e89289d11cd97603366c102099ac3626da /perl-install/install_any.pm
parentb253118bd77ea156fb8d73b52960948a49a7b102 (diff)
downloaddrakx-backup-do-not-use-b4ce2d88f1dfea0311ddeab1314fcb24d0d97b3e.tar
drakx-backup-do-not-use-b4ce2d88f1dfea0311ddeab1314fcb24d0d97b3e.tar.gz
drakx-backup-do-not-use-b4ce2d88f1dfea0311ddeab1314fcb24d0d97b3e.tar.bz2
drakx-backup-do-not-use-b4ce2d88f1dfea0311ddeab1314fcb24d0d97b3e.tar.xz
drakx-backup-do-not-use-b4ce2d88f1dfea0311ddeab1314fcb24d0d97b3e.zip
Apparently perl_checker doesn't like my perfectly sensible perl syntax.
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm12
1 files changed, 7 insertions, 5 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index dbb0a7a44..7fc1559b1 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -31,6 +31,8 @@ $boot_medium = 1;
$current_medium = $boot_medium;
$asked_medium = $boot_medium;
+our $global_ftp_prefix;
+
#-######################################################################################
#- Media change variables&functions
#-######################################################################################
@@ -199,7 +201,7 @@ sub getFile {
crypto::getFile($f);
} elsif ($current_method eq "ftp") {
require ftp;
- ftp::getFile($rel, @{ $::o->{packages}{mediums}{$asked_medium}{ftp_prefix} || our $global_ftp_prefix || [] });
+ ftp::getFile($rel, @{ $::o->{packages}{mediums}{$asked_medium}{ftp_prefix} || $global_ftp_prefix || [] });
} elsif ($current_method eq "http") {
require http;
http::getFile(($ENV{URLPREFIX} || $o_altroot) . "/$rel");
@@ -369,7 +371,7 @@ sub deselectFoundMedia {
my @hdlist2;
my @corresp;
my $i = 0;
- for (@$hdlists) {
+ foreach (@$hdlists) {
(my $cd) = $_->[3] =~ /\bCD ?(\d+)\b/;
if (!$cd || !@{$cdlist{$cd} || []}) {
push @hdlist2, $_;
@@ -394,9 +396,9 @@ If you want to skip some of them, you can unselect them now."),
},
);
my @l2; $i = 0;
- for my $c (@$l) {
+ foreach my $c (@$l) {
++$i while $hdlists->[$i][3] ne $c->[3];
- push @l2, $hdlists->[$_] for @{$corresp[$i]};
+ push @l2, $hdlists->[$_] foreach @{$corresp[$i]};
}
log::l("keeping media " . join ',', map { $_->[1] } @l2);
@l2;
@@ -500,7 +502,7 @@ sub selectSupplMedia {
}
} else {
my $url;
- local our $global_ftp_prefix;
+ local $global_ftp_prefix;
if ($suppl_method eq 'ftp') { #- mirrors are ftp only (currently)
$url = $o->askSupplMirror(N("URL of the mirror?")) or return '';
$url =~ m!^ftp://(?:(.*?)(?::(.*?))?@)?([^/]+)/(.*)!