From 4790f3c129390210c4851d5b5f4923649f2f66e1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 2 Mar 2004 12:17:12 +0000
Subject: better error message on exceptions

---
 perl-install/common.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/common.pm')

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);
 }
-- 
cgit v1.2.1