diff options
| -rw-r--r-- | MDK/Common/String.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/MDK/Common/String.pm b/MDK/Common/String.pm index 76cc34c..6a4b451 100644 --- a/MDK/Common/String.pm +++ b/MDK/Common/String.pm @@ -90,7 +90,10 @@ sub formatList { } sub formatError { my ($err) = @_; - $err =~ s/ at .*?$/\./s if !$::testing; + if (!$::testing) { + $err =~ s/Uncaught exception from user code:\n\t//s; #- happens with "use diagnostics" + $err =~ s/ at .*?$/\./s; + } $err; } sub formatTimeRaw { |