summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/MDK/Common/String.pm2
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;
}