From 974b27d91eca1219e62e649f3545eaed52a97794 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 19 Feb 2003 23:26:37 +0000 Subject: add some formatError's --- perl-install/install_interactive.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm index 7ec90b709..e7287bd82 100644 --- a/perl-install/install_interactive.pm +++ b/perl-install/install_interactive.pm @@ -151,7 +151,7 @@ sub partitionWizardSolutions { $pkg->new($part->{device}, devices::make($part->{device})); }; $@ and die N("The FAT resizer is unable to handle your partition, -the following error occured: %s", $@); +the following error occured: %s", formatError($@)); my $min_win = do { my $_w = $o->wait_message(N("Resizing"), N("Computing the size of the Windows partition")); $resize_fat->min_size; @@ -186,7 +186,7 @@ When sure, press Ok.")) or return; }; if (my $err = $@) { $part->{size} = $oldsize; - die N("FAT resizing failed: %s", $err); + die N("FAT resizing failed: %s", formatError($err)); } $part->{isFormatted} = 1; @@ -271,7 +271,7 @@ sub partitionWizard { [ { val => \$sol, list => \@solutions, format => sub { $_[0][1] }, type => 'list' } ]); log::l("partitionWizard calling solution $sol->[1]"); my $ok = eval { $sol->[2]->() }; - $@ and $o->ask_warn('', N("Partitioning failed: %s", $@)); + $@ and $o->ask_warn('', N("Partitioning failed: %s", formatError($@))); $ok or goto &partitionWizard; 1; } -- cgit v1.2.1