summaryrefslogtreecommitdiffstats
path: root/lib/MDK/Common
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-09-04 15:33:12 +0000
committerThierry Vignaud <tv@mandriva.org>2007-09-04 15:33:12 +0000
commit72a32e7ad0548058b1514afc55eab8d971902e0e (patch)
tree6e5d297a67c03aed5f0dc2198d19b1c4844245eb /lib/MDK/Common
parentf284d681282371b449c35322440af6a1aee03bf9 (diff)
downloadperl-MDK-Common-72a32e7ad0548058b1514afc55eab8d971902e0e.tar
perl-MDK-Common-72a32e7ad0548058b1514afc55eab8d971902e0e.tar.gz
perl-MDK-Common-72a32e7ad0548058b1514afc55eab8d971902e0e.tar.bz2
perl-MDK-Common-72a32e7ad0548058b1514afc55eab8d971902e0e.tar.xz
perl-MDK-Common-72a32e7ad0548058b1514afc55eab8d971902e0e.zip
(formatError) make it work with any modules
Diffstat (limited to 'lib/MDK/Common')
-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 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;
}