diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-11 11:44:15 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-11 11:44:15 +0000 |
commit | c3f92be34b66218d5bc58f97c0e9bdbbaffbbd23 (patch) | |
tree | bec1548d5692d1fbfd4e50e20dc98be343486adc | |
parent | c81d17265e77edf44864c61b5bfc4ce8dae00061 (diff) | |
download | perl-MDK-Common-c3f92be34b66218d5bc58f97c0e9bdbbaffbbd23.tar perl-MDK-Common-c3f92be34b66218d5bc58f97c0e9bdbbaffbbd23.tar.gz perl-MDK-Common-c3f92be34b66218d5bc58f97c0e9bdbbaffbbd23.tar.bz2 perl-MDK-Common-c3f92be34b66218d5bc58f97c0e9bdbbaffbbd23.tar.xz perl-MDK-Common-c3f92be34b66218d5bc58f97c0e9bdbbaffbbd23.zip |
perl_checker is so right...
-rw-r--r-- | MDK/Common/String.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/MDK/Common/String.pm b/MDK/Common/String.pm index 2446743..bf8ac90 100644 --- a/MDK/Common/String.pm +++ b/MDK/Common/String.pm @@ -95,7 +95,7 @@ sub formatError { ref($err) eq 'SCALAR' and $err = $$err; if (!$::testing) { $err =~ s/Uncaught exception from user code:\n\t//s; #- happens with "use diagnostics" - $err =~ s/ at .*?$/\./s; + $err =~ s/ at .*?$/./s; } $err; } |