This commit was manufactured by cvs2svn to create tagV10_34_11_100mdk

'V10_34_11_100mdk'.

1 files changed, 4 insertions, 2 deletions

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index c1a47d33d..6fea37b19 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -206,7 +206,7 @@ sub formatPartitions {
 
     #- needed by lilo
     if (my @vgs = map { $_->{VG_name} } @{$o->{all_hds}{lvms}}) {
-	cp_af("/dev/$_", "$::prefix/dev") foreach 'mapper', @vgs;
+	common::my_cp_af("/dev/$_", "$::prefix/dev") foreach 'mapper', @vgs;
     }
 }
 
@@ -264,7 +264,7 @@ sub configureNetwork {
 #------------------------------------------------------------------------------
 sub installUpdates {
     my ($_clicked, $_ent_number, $auto) = @_;
-    installStepsCall($o, $auto, 'installUpdates');
+    installStepsCall($o, $auto, 'installUpdates') if $o->{meta_class} ne 'firewall';
 }
 #------------------------------------------------------------------------------
 sub configureServices {
@@ -384,6 +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 },
 	    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(<STDIN>)) },
@@ -411,6 +412,7 @@ sub main {
 	    nomouseprobe => sub { $o->{nomouseprobe} = $v },
 	    updatemodules => sub { $o->{updatemodules} = 1 },
 	    move  => sub { $::move = 1 },
+	    globetrotter  => sub { $::move = 1; $::globetrotter = 1 },
 	}}{lc $n}; &$f if $f;
     } %cmdline;