diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-01-22 20:31:52 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-01-22 20:31:52 +0000 |
commit | f85da3ea0e86a4a79dbb3a8fb4dd1c5d499deebe (patch) | |
tree | 97431ce90db1e1166cdc52b91e23b3266e7e3ff9 /perl-install/install_any.pm | |
parent | 4430474523a0147b6448b9945ddd2e2cbc6c08d8 (diff) | |
download | drakx-backup-do-not-use-f85da3ea0e86a4a79dbb3a8fb4dd1c5d499deebe.tar drakx-backup-do-not-use-f85da3ea0e86a4a79dbb3a8fb4dd1c5d499deebe.tar.gz drakx-backup-do-not-use-f85da3ea0e86a4a79dbb3a8fb4dd1c5d499deebe.tar.bz2 drakx-backup-do-not-use-f85da3ea0e86a4a79dbb3a8fb4dd1c5d499deebe.tar.xz drakx-backup-do-not-use-f85da3ea0e86a4a79dbb3a8fb4dd1c5d499deebe.zip |
cleanup error messages (and fix diskdrake's)
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r-- | perl-install/install_any.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index b4b6f75e7..2cce2ee31 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -954,7 +954,7 @@ sub getHds { my $all_hds = catch_cdie { fsedit::hds(\@drives, $flags) } sub { $ok = 0; - my $err = $@; $err =~ s/ at (.*?)$//; + my $err = formatError($@); log::l("error reading partition table: $err"); !$flags->{readonly} && $f_err and $f_err->($err); }; |