diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2007-08-06 13:39:43 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2007-08-06 13:39:43 +0000 |
| commit | 8d4dae3b9fbdbf9ed1494d9dbcf6e16bc0ad0606 (patch) | |
| tree | 4c34b9fce45af8dfe05c50984c21b67fe3c796b5 | |
| parent | 080a8401fcb33fa4a0372db3017edf84fb902868 (diff) | |
| download | perl-MDK-Common-8d4dae3b9fbdbf9ed1494d9dbcf6e16bc0ad0606.tar perl-MDK-Common-8d4dae3b9fbdbf9ed1494d9dbcf6e16bc0ad0606.tar.gz perl-MDK-Common-8d4dae3b9fbdbf9ed1494d9dbcf6e16bc0ad0606.tar.bz2 perl-MDK-Common-8d4dae3b9fbdbf9ed1494d9dbcf6e16bc0ad0606.tar.xz perl-MDK-Common-8d4dae3b9fbdbf9ed1494d9dbcf6e16bc0ad0606.zip | |
(formatError) make it safer (it now handles exceptions containing " at ")
| -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; } |