(main): warn if VERSION file doesn't exist

(formatPartitions): call rotate_logs after mounting the partitions

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') {