From 7ad843e0db621a0db6b3e505cf1d88af89fa4ca0 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 16 Aug 2004 05:07:12 +0000 Subject: replace freeDriver with freedriver (stage2 para are lower cased) --- perl-install/Xconfig/card.pm | 2 +- perl-install/install2.pm | 2 +- perl-install/install_any.pm | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/perl-install/Xconfig/card.pm b/perl-install/Xconfig/card.pm index 8e47b3205..cbb33a3a5 100644 --- a/perl-install/Xconfig/card.pm +++ b/perl-install/Xconfig/card.pm @@ -353,7 +353,7 @@ sub install_server { push @packages, 'Mesa'; } - if ($options->{freeDriver}) { + if ($options->{free_driver}) { delete $card->{Driver2}; } diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 6a95c964b..95719f98e 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -384,7 +384,7 @@ sub main { step => sub { $o->{steps}{first} = $v }, expert => sub { $::expert = $v }, meta_class => sub { $o->{meta_class} = $v }, - freeDriver => sub { $o->{freeDriver} = $v }, + freedriver => sub { $o->{freedriver} = $v }, readonly => sub { $o->{partitioning}{readonly} = $v ne "0" }, display => sub { $o->{display} = $v }, askdisplay => sub { print "Please enter the X11 display to perform the install on ? "; $o->{display} = chomp_(scalar()) }, diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 37f64ab39..9e2543780 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -1114,7 +1114,7 @@ sub log_sizes { sub X_options_from_o { my ($o) = @_; { - freeDriver => $o->{freeDriver}, + freedriver => $o->{freedriver}, allowFB => $o->{allowFB}, }; } -- cgit v1.2.1