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/partition_table.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'perl-install/partition_table.pm') diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index 590dd752a..45b3a7088 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -746,7 +746,7 @@ sub add_primary { } sub add_extended { - arch() =~ /^sparc|ppc/ and die \N("Extended partition not supported on this platform"); + arch() =~ /^sparc|ppc/ and die N("Extended partition not supported on this platform"); my ($hd, $part, $extended_type) = @_; $extended_type =~ s/Extended_?//; @@ -844,16 +844,16 @@ sub next_start { sub load { my ($hd, $file, $b_force) = @_; - open(my $F, $file) or die \N("Error reading file %s", $file); + open(my $F, $file) or die N("Error reading file %s", $file); my $h; { local $/ = "\0"; eval <$F>; } - $@ and die \N("Restoring from file %s failed: %s", $file, $@); + $@ and die N("Restoring from file %s failed: %s", $file, $@); - ref($h) eq 'ARRAY' or die \N("Bad backup file"); + ref($h) eq 'ARRAY' or die N("Bad backup file"); my %h; @h{@fields2save} = @$h; @@ -873,5 +873,5 @@ sub save { my @h = @$hd{@fields2save}; require Data::Dumper; eval { output($file, Data::Dumper->Dump([\@h], ['$h']), "\0") } - or die \N("Error writing to file %s", $file); + or die N("Error writing to file %s", $file); } -- cgit v1.2.1