From 7a21da20c34db394abcde18f08d106edc47ae8c2 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Wed, 19 Feb 2003 23:46:30 +0000 Subject: to workaround perl bug removing UTF8 flag when passing scalars to die's, pass a scalar-ref. but we need to de-ref, so it might break many things :). let's make a prayer :). --- 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 74cc95870..82677b0b0 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -1032,7 +1032,7 @@ N_("The highlighted entry will be booted automatically in %d seconds."), ); 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; } @@ -1060,7 +1060,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