diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2007-09-04 15:33:12 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2007-09-04 15:33:12 +0000 |
| commit | 72a32e7ad0548058b1514afc55eab8d971902e0e (patch) | |
| tree | 6e5d297a67c03aed5f0dc2198d19b1c4844245eb | |
| parent | f284d681282371b449c35322440af6a1aee03bf9 (diff) | |
| download | perl-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
| -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 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; } |