diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-09-08 11:48:33 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-09-08 11:48:33 +0000 |
commit | 3fbf212dd74829c7ca32ec2e4edcffd1aa6e6467 (patch) | |
tree | df7153fabb2ffe641e3855ffff26e18ea0c895d1 /perl-install/standalone | |
parent | 55ad627d319b9279fa6b42a1f75c37b5294d8e83 (diff) | |
download | drakx-backup-do-not-use-3fbf212dd74829c7ca32ec2e4edcffd1aa6e6467.tar drakx-backup-do-not-use-3fbf212dd74829c7ca32ec2e4edcffd1aa6e6467.tar.gz drakx-backup-do-not-use-3fbf212dd74829c7ca32ec2e4edcffd1aa6e6467.tar.bz2 drakx-backup-do-not-use-3fbf212dd74829c7ca32ec2e4edcffd1aa6e6467.tar.xz drakx-backup-do-not-use-3fbf212dd74829c7ca32ec2e4edcffd1aa6e6467.zip |
use formatError to have the error message instead of SCALAR(0x....)
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-x | perl-install/standalone/diskdrake | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake index ef5326c81..5498fcab8 100755 --- a/perl-install/standalone/diskdrake +++ b/perl-install/standalone/diskdrake @@ -71,7 +71,7 @@ if ($type eq 'fileshare') { my $all_hds = fsedit::get_hds({}, $in); -$SIG{__DIE__} = sub { my $m = chomp_($_[0]); log::l("ERROR: $m") }; +$SIG{__DIE__} = sub { my $m = formatError($_[0]); log::l("ERROR: $m") }; fs::get_raw_hds('', $all_hds); |