summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install2.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index c927e0ac1..8963f6971 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -23,6 +23,7 @@ use partition_table qw(:types);
use modules;
use detect_devices;
use run_program;
+use any;
use log;
use fs;
@@ -289,6 +290,8 @@ sub formatPartitions {
home mnt tmp var var/tmp var/lib var/lib/rpm var/lib/urpmi);
mkdir "$o->{prefix}/$_", 0700 foreach qw(root root/tmp);
+ any::rotate_logs($o->{prefix});
+
require raid;
raid::prepare_prefixed($o->{raid}, $o->{prefix});
@@ -606,7 +609,7 @@ sub main {
$o->{allowFB} = listlength(cat_("/proc/fb"));
- my $VERSION = cat__(install_any::getFile("VERSION"));
+ 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;
if ($o->{meta_class} eq 'desktop') {