From 432f25c16c5067056b767f51243b9ddada214b2c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 5 Apr 2004 09:24:25 +0000 Subject: perl now handle cleanly utf8 string in exceptions, no need to die \N("...") --- perl-install/bootloader.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/bootloader.pm') diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 243f69708..0cdbfc1bd 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -1140,7 +1140,7 @@ EOF "; my $e = "$::prefix/boot/.enough_space"; - output $e, 1; -s $e or die \N("not enough room in /boot"); + output $e, 1; -s $e or die N("not enough room in /boot"); unlink $e; $f; } @@ -1168,7 +1168,7 @@ sub install { my ($bootloader, $fstab, $hds) = @_; if (my $p = find { $bootloader->{boot} eq "/dev/$_->{device}" } @$fstab) { - die \N("You can't install the bootloader on a %s partition\n", partition_table::type2fs($p)) + die N("You can't install the bootloader on a %s partition\n", partition_table::type2fs($p)) if isThisFs('xfs', $p); } $bootloader->{keytable} = keytable($bootloader->{keytable}); -- cgit v1.2.1