summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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;
}