summaryrefslogtreecommitdiffstats
path: root/perl-install/install2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-12-08 16:20:26 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-12-08 16:20:26 +0000
commitda22fd04fe09e06bf86b146d1ac66dda45c03f0c (patch)
tree6189987f5aa84040380a04b93e379aab2da4f0b7 /perl-install/install2.pm
parent72f50dd4f1f871dd01cb0701f1de2694d5714a8f (diff)
downloaddrakx-da22fd04fe09e06bf86b146d1ac66dda45c03f0c.tar
drakx-da22fd04fe09e06bf86b146d1ac66dda45c03f0c.tar.gz
drakx-da22fd04fe09e06bf86b146d1ac66dda45c03f0c.tar.bz2
drakx-da22fd04fe09e06bf86b146d1ac66dda45c03f0c.tar.xz
drakx-da22fd04fe09e06bf86b146d1ac66dda45c03f0c.zip
(main): warn if VERSION file doesn't exist
(formatPartitions): call rotate_logs after mounting the partitions
Diffstat (limited to 'perl-install/install2.pm')
-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') {