diff options
author | Thierry Vignaud <tv@mandriva.org> | 2007-08-27 09:58:43 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2007-08-27 09:58:43 +0000 |
commit | dfdf67465048d060f7f86cd70d55cb78b6da15d9 (patch) | |
tree | 421a29bd65b7117bfa0db071ddbb4845b7591b7b /perl-install/install/install2.pm | |
parent | 06778644fe639e20bf25eae532dc5b002af3a808 (diff) | |
download | drakx-dfdf67465048d060f7f86cd70d55cb78b6da15d9.tar drakx-dfdf67465048d060f7f86cd70d55cb78b6da15d9.tar.gz drakx-dfdf67465048d060f7f86cd70d55cb78b6da15d9.tar.bz2 drakx-dfdf67465048d060f7f86cd70d55cb78b6da15d9.tar.xz drakx-dfdf67465048d060f7f86cd70d55cb78b6da15d9.zip |
drop Move support (unused for quite a long time and superceeded by Globetrotter
which itself was obsoleted by Mdv One)
Diffstat (limited to 'perl-install/install/install2.pm')
-rw-r--r-- | perl-install/install/install2.pm | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm index 93c0029eb..5d50eae6c 100644 --- a/perl-install/install/install2.pm +++ b/perl-install/install/install2.pm @@ -377,7 +377,6 @@ sub main { rpm_dbapi => sub { $o->{rpm_dbapi} = $v }, nomouseprobe => sub { $o->{nomouseprobe} = $v }, updatemodules => sub { $o->{updatemodules} = 1 }, - move => sub { $::move = 1 }, suppl => sub { $o->{supplmedia} = 1 }, askmedia => sub { $o->{askmedia} = 1 }, }}{lc $n}; &$f if $f; @@ -400,10 +399,6 @@ sub main { eval { fs::mount::mount('none', '/sys', 'sysfs', 1) }; eval { touch('/root/non-chrooted-marker.DrakX') }; #- helps distinguishing /root and /mnt/root when we don't know if we are chrooted - if ($::move) { - require move; - move::init($o); - } if ($::local_install) { push @auto, # 'selectLanguage', 'selectKeyboard', 'miscellaneous', 'selectInstallClass', @@ -413,7 +408,7 @@ sub main { $o->{mouse} = mouse::fullname2mouse('Universal|Any PS/2 & USB mice'); } - $o->{prefix} = $::prefix = $::testing ? "/tmp/test-perl-install" : $::move ? "" : "/mnt"; + $o->{prefix} = $::prefix = $::testing ? "/tmp/test-perl-install" : "/mnt"; mkdir $::prefix, 0755; #- make sure we do not pick up any gunk from the outside world @@ -531,7 +526,7 @@ sub main { mouse::load_modules($o->{mouse}); } - lang::set($o->{locale}) if !$::move; + lang::set($o->{locale}); # keep the result otherwise monitor-edid does not return good results afterwards eval { any::monitor_full_edid() }; @@ -540,7 +535,7 @@ sub main { $o->{allowFB} = listlength(cat_("/proc/fb")); - if (!$::move && !$::testing) { + if (!$::testing) { my $product_id = cat__(install::any::getFile_($o->{stage2_phys_medium}, "product.id")); log::l('product_id: ' . chomp_($product_id)); $o->{product_id} = common::parse_LDAP_namespace_structure($product_id); |