diff options
Diffstat (limited to 'perl-install/partition_table.pm')
| -rw-r--r-- | perl-install/partition_table.pm | 10 |
1 files changed, 5 insertions, 5 deletions
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); } |