summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-01 04:04:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-01 04:04:21 +0000
commit0bb3c1756eaf0d3207278eee90bf510eb974712e (patch)
treecfadb41d13e40ac87189ea069d18274b25c870b4 /perl-install
parent3efe20ca4238b59bfab486a76c89b589bf601c8f (diff)
downloaddrakx-0bb3c1756eaf0d3207278eee90bf510eb974712e.tar
drakx-0bb3c1756eaf0d3207278eee90bf510eb974712e.tar.gz
drakx-0bb3c1756eaf0d3207278eee90bf510eb974712e.tar.bz2
drakx-0bb3c1756eaf0d3207278eee90bf510eb974712e.tar.xz
drakx-0bb3c1756eaf0d3207278eee90bf510eb974712e.zip
nicer log
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 16c1f9277..754f0b7d0 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -566,7 +566,7 @@ sub mount_part {
#- root carrier's link can not be mounted
loopback::carryRootCreateSymlink($part, $o_prefix);
- log::l("isMounted=$part->{isMounted}, real_mntpoint=$part->{real_mntpoint}, mntpoint=$part->{mntpoint}");
+ log::l("mount_part: " . join(' ', map { "$_=$part->{$_}" } 'device', 'mntpoint', 'isMounted', 'real_mntpoint'));
if ($part->{isMounted} && $part->{real_mntpoint} && $part->{mntpoint}) {
log::l("remounting partition on $o_prefix$part->{mntpoint} instead of $part->{real_mntpoint}");
if ($::isInstall) { #- ensure partition will not be busy.