summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/common.pm')
-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);
}