summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-03-23 13:54:22 +0000
committerFrancois Pons <fpons@mandriva.com>2001-03-23 13:54:22 +0000
commitb0945db7b8057990eec13cb1ad3dbfe06a54e8c7 (patch)
treefbf7809b234ff4523ef3964915160a3bf758afb9 /perl-install
parent8e9fea36c1c50c17506b6ba37257817d11be68d5 (diff)
downloaddrakx-b0945db7b8057990eec13cb1ad3dbfe06a54e8c7.tar
drakx-b0945db7b8057990eec13cb1ad3dbfe06a54e8c7.tar.gz
drakx-b0945db7b8057990eec13cb1ad3dbfe06a54e8c7.tar.bz2
drakx-b0945db7b8057990eec13cb1ad3dbfe06a54e8c7.tar.xz
drakx-b0945db7b8057990eec13cb1ad3dbfe06a54e8c7.zip
fixed wrong usage of Screen keyword in Device section, should be present and
reseted for any multi head card with only one BusID.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfigurator.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index ac37ffec3..3959241b5 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -180,6 +180,7 @@ sub cardConfigurationAuto() {
foreach (1..$dup) {
my $card = {};
add2hash($card, $orig);
+ $card->{screen} = $_ - 1;
push @result, $card;
}
@result;
@@ -190,11 +191,11 @@ sub cardConfigurationAuto() {
#- make sure no type are already used, duplicate both screen
#- and rename type (because used as id).
if (@cards > 1) {
- my $screen = 0;
+ my $card = 1;
foreach (@cards) {
updateCardAccordingName($_, $_->{type}) if $_->{type};
- $_->{screen} = $screen++;
- $_->{type} = "$_->{type} $screen";
+ $_->{type} = "$_->{type} $card";
+ $card++;
}
}
#- in case of only one cards, remove all busid reference, this will avoid