From 09d0bf18f2557b95dcb153d4405462b357a22c07 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 14 Aug 2001 13:52:31 +0000 Subject: fix typo? --- perl-install/Xconfigurator.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install') 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. -- cgit v1.2.1