From 7c01660ece288e7485f90818e647fcbff6308fcf Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 29 May 2007 07:54:29 +0000
Subject: (escape_text_for_TextView_markup_format) pinpoint bogus callers

---
 perl-install/ugtk2.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 5577384f3..3072aadaf 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -290,7 +290,10 @@ sub escape_text_for_TextView_markup_format {
                '<' => '&lt;',
                '>' => '&gt;',
            );
-    $str =~ s!([&<>])!$rules{$1}!g; #^(&(amp|lt|gt);)!!) {
+    eval { $str =~ s!([&<>])!$rules{$1}!g }; #^(&(amp|lt|gt);)!!) {
+    if (my $err = $@) {
+           internal_error("$err\n$str");
+    }
     $str;
 }
 
-- 
cgit v1.2.1