From f06b7cd6d8bd28b1d1f74f07dc89512ab2c5dcaf Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 2 Apr 2004 15:11:59 +0000 Subject: error should not be scalar refs anymore --- MDK/Common/String.pm | 1 - 1 file changed, 1 deletion(-) (limited to 'MDK/Common/String.pm') diff --git a/MDK/Common/String.pm b/MDK/Common/String.pm index 2325623..484ee2c 100644 --- a/MDK/Common/String.pm +++ b/MDK/Common/String.pm @@ -92,7 +92,6 @@ sub formatList { } sub formatError { my ($err) = @_; - 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; -- cgit v1.2.1