From db0dc40ad297041e36bb39ec5993db30b94cbf27 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 30 Jan 2003 22:56:02 +0000 Subject: drop $o->{lnx4win} handling --- perl-install/install2.pm | 2 -- perl-install/install_interactive.pm | 7 ------- 2 files changed, 9 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 601d59f01..8f93705dd 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -374,7 +374,6 @@ sub main { step => sub { $o->{steps}{first} = $v }, expert => sub { $::expert = $v }, meta_class => sub { $o->{meta_class} = $v }, - lnx4win => sub { $o->{lnx4win} = 1 }, 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()) }, @@ -514,7 +513,6 @@ sub main { $o->{allowFB} = listlength(cat_("/proc/fb")); my $VERSION = cat__(install_any::getFile("VERSION")) or do { print "VERSION file missing\n"; sleep 5 }; - $o->{lnx4win} = 1 if $VERSION =~ /lnx4win/i; $o->{meta_class} = 'desktop' if $VERSION =~ /desktop/i; $o->{meta_class} = 'firewall' if $VERSION =~ /firewall/i; $o->{meta_class} = 'server' if $VERSION =~ /server/i; diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm index 6acece384..846365853 100644 --- a/perl-install/install_interactive.pm +++ b/perl-install/install_interactive.pm @@ -226,13 +226,6 @@ sub partitionWizard { $o->set_help('doPartitionDisks'); my %solutions = partitionWizardSolutions($o, $o->{all_hds}); - if ($o->{lnx4win}) { - if ($solutions{loopback}) { - %solutions = (loopback => $solutions{loopback}); - } else { - $o->ask_warn('', N("You don't have enough free space on your Windows partition")) if any { isFat($_) } fsedit::get_all_fstab($o->{all_hds}); - } - } delete $solutions{diskdrake} if $nodiskdrake; -- cgit v1.2.1