From 6734842f11de6a2e38cc6998e6c1079e4aa5ff84 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Wed, 19 Feb 2003 23:36:23 +0000
Subject: 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

---
 MDK/Common/String.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'MDK/Common/String.pm')

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;
-- 
cgit v1.2.1