summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-03-02 12:17:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-03-02 12:17:12 +0000
commit4790f3c129390210c4851d5b5f4923649f2f66e1 (patch)
treeca03fc7a47c3d9cb4ec27f74f0da9762561b4a1a /perl-install
parent8d5e403a1dc9a18175ed2862275b555d1be61739 (diff)
downloaddrakx-4790f3c129390210c4851d5b5f4923649f2f66e1.tar
drakx-4790f3c129390210c4851d5b5f4923649f2f66e1.tar.gz
drakx-4790f3c129390210c4851d5b5f4923649f2f66e1.tar.bz2
drakx-4790f3c129390210c4851d5b5f4923649f2f66e1.tar.xz
drakx-4790f3c129390210c4851d5b5f4923649f2f66e1.zip
better error message on exceptions
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/common.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index 6438fbc59..170ad831d 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -164,6 +164,7 @@ sub sync { &MDK::Common::System::sync }
BEGIN { undef *formatError };
sub formatError {
my ($err) = @_;
+ ref($err) eq 'SCALAR' and $err = $$err;
log::l("error: $err");
&MDK::Common::String::formatError($err);
}