From c3f92be34b66218d5bc58f97c0e9bdbbaffbbd23 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 11 Apr 2003 11:44:15 +0000 Subject: perl_checker is so right... --- MDK/Common/String.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'MDK/Common/String.pm') 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; } -- cgit v1.2.1