(format_header, format_field) ensure the string passed to Pango is valid

1 files changed, 2 insertions, 2 deletions

diff --git a/rpmdrake b/rpmdrake
index 831f7455..e3d2a5b2 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -556,12 +556,12 @@ sub formatlistpkg { myformatList(sort { uc($a) cmp uc($b) } @_) }
 
 sub format_header {
     my ($str) = @_;
-    '<big>' . $str . '</big>';
+    '<big>' . Glib::Markup::escape_text($str) . '</big>';
 }
 
 sub format_field {
     my ($str) = @_;
-    '<b>' . $str . '</b>';
+    '<b>' . Glib::Markup::escape_text($str) . '</b>';
 }
 
 sub format_pkg_simplifiedinfo {