From 72a32e7ad0548058b1514afc55eab8d971902e0e Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 4 Sep 2007 15:33:12 +0000 Subject: (formatError) make it work with any modules --- lib/MDK/Common/String.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/MDK/Common/String.pm b/lib/MDK/Common/String.pm index fe2c299..de6ce59 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 \Q$0\E line .*?$/./s; + $err =~ s/ at \S+ line .*?\.$/./s; } $err; } -- cgit v1.2.1