summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfigurator.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/Xconfigurator.pm')
-rw-r--r--perl-install/Xconfigurator.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index c34f4e221..d8513507b 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -232,9 +232,9 @@ sub cardConfiguration(;$$$) {
push @choices, { text => _("Configure all heads independantly"), code => sub { $configure_multi_head->('') } };
push @choices, { text => _("Use Xinerama extension"), code => sub { $configure_multi_head->(1) } };
}
- foreach (values %single_heads) {
- push @choices, { text => _("Configure only card \"%s\" (%s)", $_->{identifier}, $_->{busid}),
- code => sub { add2hash($card, $_); delete $card->{cards}; delete $card->{Xinerama} } };
+ foreach my $e (values %single_heads) {
+ push @choices, { text => _("Configure only card \"%s\" (%s)", $e->{identifier}, $e->{busid}),
+ code => sub { add2hash($card, $e); delete $card->{cards}; delete $card->{Xinerama} } };
}
$tc = $in->ask_from_listf(_("Multi-head configuration"),
_("Your system support multiple head configuration.