summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-08-05 08:55:59 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-08-05 08:55:59 +0000
commit83f00ab2b7a1d2a4cc1d800fb1f7f98e2bc56e1c (patch)
tree67082b1f4bec8938b561ab1ab65d613e74a3f4e0 /perl-install/install_any.pm
parent1922fb769aa3deb26f7f5b6fcb14784a5ba9a0f3 (diff)
downloaddrakx-83f00ab2b7a1d2a4cc1d800fb1f7f98e2bc56e1c.tar
drakx-83f00ab2b7a1d2a4cc1d800fb1f7f98e2bc56e1c.tar.gz
drakx-83f00ab2b7a1d2a4cc1d800fb1f7f98e2bc56e1c.tar.bz2
drakx-83f00ab2b7a1d2a4cc1d800fb1f7f98e2bc56e1c.tar.xz
drakx-83f00ab2b7a1d2a4cc1d800fb1f7f98e2bc56e1c.zip
basic code for upgrading from a redhat distribution
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 4c4dd0334..69aca812d 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1085,13 +1085,13 @@ sub find_root_parts {
my ($fstab, $prefix) = @_;
map {
my $handle = any::inspect($_, $prefix);
- my $f = $handle && (find { -f $_ } map { "$handle->{dir}/etc/$_" } 'mandrake-release', 'mandrakelinux-release');
+ my $f = $handle && (find { -f $_ } map { "$handle->{dir}/etc/$_" } 'mandrakelinux-release', 'mandrake-release', 'redhat-release');
if ($f) {
my $s = cat_($f);
chomp($s);
$s =~ s/\s+for\s+\S+//;
log::l("find_root_parts found $_->{device}: $s");
- { release => $s, part => $_ };
+ { release => $s, part => $_, release_file => $f };
} else { () }
} @$fstab;
}