diff options
| -rw-r--r-- | lib/MDK/Common/String.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/MDK/Common/String.pm b/lib/MDK/Common/String.pm index 40eee1d..fe2c299 100644 --- a/lib/MDK/Common/String.pm +++ b/lib/MDK/Common/String.pm @@ -101,7 +101,7 @@ sub formatError { my ($err) = @_; if (!$::testing) { $err =~ s/Uncaught exception from user code:\n\t//s; #- happens with "use diagnostics" - $err =~ s/ at .*?$/./s; + $err =~ s/ at \Q$0\E line .*?$/./s; } $err; } |