From da22fd04fe09e06bf86b146d1ac66dda45c03f0c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 8 Dec 2000 16:20:26 +0000
Subject: (main): warn if VERSION file doesn't exist (formatPartitions): call
 rotate_logs after mounting the partitions

---
 perl-install/install2.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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') {
-- 
cgit v1.2.1