summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-04-02 15:11:59 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-04-02 15:11:59 +0000
commitf06b7cd6d8bd28b1d1f74f07dc89512ab2c5dcaf (patch)
tree5b48ec6f6051a701fe4c6c26efdadf05ef6fa114
parent932a59520de7f0c4cbe973f6ff9d0cdbe24ba66a (diff)
downloadperl-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.pm1
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;