summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-09-08 11:48:33 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-09-08 11:48:33 +0000
commit3fbf212dd74829c7ca32ec2e4edcffd1aa6e6467 (patch)
treedf7153fabb2ffe641e3855ffff26e18ea0c895d1 /perl-install/standalone
parent55ad627d319b9279fa6b42a1f75c37b5294d8e83 (diff)
downloaddrakx-3fbf212dd74829c7ca32ec2e4edcffd1aa6e6467.tar
drakx-3fbf212dd74829c7ca32ec2e4edcffd1aa6e6467.tar.gz
drakx-3fbf212dd74829c7ca32ec2e4edcffd1aa6e6467.tar.bz2
drakx-3fbf212dd74829c7ca32ec2e4edcffd1aa6e6467.tar.xz
drakx-3fbf212dd74829c7ca32ec2e4edcffd1aa6e6467.zip
use formatError to have the error message instead of SCALAR(0x....)
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/diskdrake2
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);