diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-02-19 23:36:23 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-02-19 23:36:23 +0000 |
| commit | 6734842f11de6a2e38cc6998e6c1079e4aa5ff84 (patch) | |
| tree | 8a349f299f77f5ba8aee22fe48b86f7b6483f4ea /MDK/Common/String.pm | |
| parent | 98a715cb4880ce2d66862f51259a320cbf8424bc (diff) | |
| download | perl-MDK-Common-6734842f11de6a2e38cc6998e6c1079e4aa5ff84.tar perl-MDK-Common-6734842f11de6a2e38cc6998e6c1079e4aa5ff84.tar.gz perl-MDK-Common-6734842f11de6a2e38cc6998e6c1079e4aa5ff84.tar.bz2 perl-MDK-Common-6734842f11de6a2e38cc6998e6c1079e4aa5ff84.tar.xz perl-MDK-Common-6734842f11de6a2e38cc6998e6c1079e4aa5ff84.zip | |
to handle transparently the new die in DrakX needing to send
scalar-refs instead of scalars (to workaround perl bug breaking
the utf8 flag for die with scalars), handle the case when err is
a scalar ref, and deref it
Diffstat (limited to 'MDK/Common/String.pm')
| -rw-r--r-- | MDK/Common/String.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/MDK/Common/String.pm b/MDK/Common/String.pm index c59c3c1..2446743 100644 --- a/MDK/Common/String.pm +++ b/MDK/Common/String.pm @@ -92,6 +92,7 @@ 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; |