summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-05-29 07:54:29 +0000
committerThierry Vignaud <tv@mandriva.org>2007-05-29 07:54:29 +0000
commit7c01660ece288e7485f90818e647fcbff6308fcf (patch)
treee2854adccf634f3b127fb966a44998425e755e1b /perl-install
parent3c89244cf9477a7f5c2f42f9639045353fced62e (diff)
downloaddrakx-backup-do-not-use-7c01660ece288e7485f90818e647fcbff6308fcf.tar
drakx-backup-do-not-use-7c01660ece288e7485f90818e647fcbff6308fcf.tar.gz
drakx-backup-do-not-use-7c01660ece288e7485f90818e647fcbff6308fcf.tar.bz2
drakx-backup-do-not-use-7c01660ece288e7485f90818e647fcbff6308fcf.tar.xz
drakx-backup-do-not-use-7c01660ece288e7485f90818e647fcbff6308fcf.zip
(escape_text_for_TextView_markup_format) pinpoint bogus callers
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm5
1 files changed, 4 insertions, 1 deletions
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;
}