From e93ca98dd5aad191b20c0da0b86f21ad5e12dcd7 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 28 Nov 2002 01:08:19 +0000
Subject: perl_checker adaptations

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

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

diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 513246344..d491af579 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -600,7 +600,7 @@ sub write {
 	}
 	$hd->kernel_read;
 	foreach (@magic_parts) {
-	    syscall_('mount', $_->{real_mntpoint}, type2fs($_), c::MS_MGC_VAL()) or log::l(N("mount failed: ") . "$!");
+	    syscall_('mount', $_->{real_mntpoint}, type2fs($_), c::MS_MGC_VAL()) or log::l(N("mount failed: ") . $!);
 	}
     }
     $hd->{needKernelReread} = 0;
-- 
cgit v1.2.1