diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-04-02 15:11:59 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-04-02 15:11:59 +0000 |
commit | f06b7cd6d8bd28b1d1f74f07dc89512ab2c5dcaf (patch) | |
tree | 5b48ec6f6051a701fe4c6c26efdadf05ef6fa114 | |
parent | 932a59520de7f0c4cbe973f6ff9d0cdbe24ba66a (diff) | |
download | perl-MDK-Common-f06b7cd6d8bd28b1d1f74f07dc89512ab2c5dcaf.tar perl-MDK-Common-f06b7cd6d8bd28b1d1f74f07dc89512ab2c5dcaf.tar.gz perl-MDK-Common-f06b7cd6d8bd28b1d1f74f07dc89512ab2c5dcaf.tar.bz2 perl-MDK-Common-f06b7cd6d8bd28b1d1f74f07dc89512ab2c5dcaf.tar.xz perl-MDK-Common-f06b7cd6d8bd28b1d1f74f07dc89512ab2c5dcaf.zip |
error should not be scalar refs anymore
-rw-r--r-- | MDK/Common/String.pm | 1 |
1 files changed, 0 insertions, 1 deletions
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; |