summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install2.pm2
-rw-r--r--perl-install/install_interactive.pm7
2 files changed, 0 insertions, 9 deletions
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(<STDIN>)) },
@@ -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;