summaryrefslogtreecommitdiffstats
path: root/rescue
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-08-03 21:50:06 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-08-03 21:50:06 +0000
commit76afc994dc32e69ed7513aca1ee78125a3b437fc (patch)
tree231f2b8f1852919133e06ec1dc0533d74e4a0282 /rescue
parent9ee26d126e82fb39d526a539da071b161641c79f (diff)
downloaddrakx-backup-do-not-use-76afc994dc32e69ed7513aca1ee78125a3b437fc.tar
drakx-backup-do-not-use-76afc994dc32e69ed7513aca1ee78125a3b437fc.tar.gz
drakx-backup-do-not-use-76afc994dc32e69ed7513aca1ee78125a3b437fc.tar.bz2
drakx-backup-do-not-use-76afc994dc32e69ed7513aca1ee78125a3b437fc.tar.xz
drakx-backup-do-not-use-76afc994dc32e69ed7513aca1ee78125a3b437fc.zip
- copy /etc/mtab to /mnt/etc/mtab to have a nice chrooted "mount" or "df"
- some perl_checker compliance
Diffstat (limited to 'rescue')
-rwxr-xr-xrescue/guessmounts11
1 files changed, 8 insertions, 3 deletions
diff --git a/rescue/guessmounts b/rescue/guessmounts
index 18514bce3..b879ca13f 100755
--- a/rescue/guessmounts
+++ b/rescue/guessmounts
@@ -13,8 +13,8 @@
#
-sub cat_ { local *F; open F, $_[0] or $_[1] ? die "cat of file $_[0] failed: $!\n" : return; my @l = <F>; wantarray ? @l : join '', @l }
-sub chomp_ { my @l = map { my $l = $_; chomp $l; $l } @_; wantarray ? @l : $l[0] }
+sub cat_ { local *F; open F, $_[0] or return; my @l = <F>; wantarray() ? @l : join '', @l }
+sub chomp_ { my @l = map { my $l = $_; chomp $l; $l } @_; wantarray() ? @l : $l[0] }
my @mounts = cat_('/proc/mounts');
@@ -38,7 +38,7 @@ M: foreach (@parts) {
my $dev = (split)[3] or next;
$dev = "/dev/$dev";
- for my $fs ('ext3', 'ext2', 'reiserfs', 'xfs', 'jfs') {
+ foreach my $fs ('ext3', 'ext2', 'reiserfs', 'xfs', 'jfs') {
my $where = $target;
if (!system("mount -t $fs $dev $where 2>/dev/null")) {
if (-r "$where/etc/fstab" && -r "$where/etc/mandrake-release") {
@@ -71,6 +71,7 @@ if ($root) {
-d $where || mkdir($where) or die "couldn't create $where\n";
print "\t$dev on $where type $type\n";
system("mount -t $type $dev $where -o $opts");
+ system("cp -f /etc/mtab $target/etc/mtab"); #- to allow a nice chrooted "mount" or "df"
}
print "\nYour system is ready on $target.\n\n";
} else {
@@ -81,6 +82,10 @@ if ($root) {
#-------------------------------------------------
#- $Log$
+#- Revision 1.6 2003/08/03 21:50:06 prigaux
+#- - copy /etc/mtab to /mnt/etc/mtab to have a nice chrooted "mount" or "df"
+#- - some perl_checker compliance
+#-
#- Revision 1.5 2001/11/05 17:03:54 gc
#- honours hash in /etc/fstab to disable lines
#-