diff options
-rw-r--r-- | MDK/Common/String.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/MDK/Common/String.pm b/MDK/Common/String.pm index c59c3c1..2446743 100644 --- a/MDK/Common/String.pm +++ b/MDK/Common/String.pm @@ -92,6 +92,7 @@ sub formatList { } sub formatError { my ($err) = @_; + ref($err) eq 'SCALAR' and $err = $$err; if (!$::testing) { $err =~ s/Uncaught exception from user code:\n\t//s; #- happens with "use diagnostics" $err =~ s/ at .*?$/\./s; |