From 0bb3c1756eaf0d3207278eee90bf510eb974712e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 1 Jun 2005 04:04:21 +0000
Subject: nicer log

---
 perl-install/fs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/fs.pm')

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.
-- 
cgit v1.2.1