summaryrefslogtreecommitdiffstats
path: root/perl-install/install/any.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-12-13 10:42:47 +0000
committerThierry Vignaud <tv@mageia.org>2012-12-13 10:42:47 +0000
commit352d3b106c346cfc048dede1c33fd1f48cd61685 (patch)
treecc3e4cd4da7089b0c2e49b41d6154c3b1a6c9aff /perl-install/install/any.pm
parentf5da42b91d9d2df40ec9aade13f3df9e334ab797 (diff)
downloaddrakx-backup-do-not-use-352d3b106c346cfc048dede1c33fd1f48cd61685.tar
drakx-backup-do-not-use-352d3b106c346cfc048dede1c33fd1f48cd61685.tar.gz
drakx-backup-do-not-use-352d3b106c346cfc048dede1c33fd1f48cd61685.tar.bz2
drakx-backup-do-not-use-352d3b106c346cfc048dede1c33fd1f48cd61685.tar.xz
drakx-backup-do-not-use-352d3b106c346cfc048dede1c33fd1f48cd61685.zip
(media_screen) simplify
Diffstat (limited to 'perl-install/install/any.pm')
-rw-r--r--perl-install/install/any.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index b674b81d8..037474a21 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -368,10 +368,11 @@ sub media_screen {
map {
my $medium = $_;
$medium->{temp_enabled} = !$medium->{ignore};
+ my $name = $medium->{name};
+{
- val => \$medium->{temp_enabled}, type => 'bool', text => $medium->{name},
+ val => \$medium->{temp_enabled}, type => 'bool', text => $name,
# 'Core Release' cannot be unselected:
- disabled => sub { $medium->{name} eq 'Core Release' },
+ disabled => sub { $name eq 'Core Release' },
};
} grep {
my ($distribconf, $medium_path) = @{$_->{mediacfg}};