summaryrefslogtreecommitdiffstats
path: root/perl-install/fsedit.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-19 17:31:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-19 17:31:21 +0000
commit190150fae69cd0b7839b7f36c8139fff9079bb7f (patch)
treed86bdbe017c049bdb81452a67a5e7d915b46fdc0 /perl-install/fsedit.pm
parent25a532696b1a761d02d03bdbe7076258ca370fd3 (diff)
downloaddrakx-190150fae69cd0b7839b7f36c8139fff9079bb7f.tar
drakx-190150fae69cd0b7839b7f36c8139fff9079bb7f.tar.gz
drakx-190150fae69cd0b7839b7f36c8139fff9079bb7f.tar.bz2
drakx-190150fae69cd0b7839b7f36c8139fff9079bb7f.tar.xz
drakx-190150fae69cd0b7839b7f36c8139fff9079bb7f.zip
no_comment
Diffstat (limited to 'perl-install/fsedit.pm')
-rw-r--r--perl-install/fsedit.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index ea1c80a81..126897889 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -217,10 +217,11 @@ sub has_mntpoint {
my ($mntpoint, $hds) = @_;
mntpoint2part($mntpoint, [ get_fstab(@$hds) ]);
}
-sub get_root {
+sub get_root_ {
my ($fstab, $boot) = @_;
$boot && mntpoint2part("/boot", $fstab) || mntpoint2part("/", $fstab);
}
+sub get_root { &get_root_ || {} }
#- do this before modifying $part->{mntpoint}
#- $part->{mntpoint} should not be used here, use $mntpoint instead