From b0f86a6e308c06ca314f1a9988e0fec3c604527a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 16 Dec 2002 07:40:08 +0000
Subject: build automatically the font description if needed

---
 perl-install/ugtk2.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/ugtk2.pm')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 9477bd283..152d4eaa6 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -531,7 +531,7 @@ sub gtkfontinfo {
 
 sub gtkmodify_font {
     my ($w, $arg) = @_;
-    $w->modify_font($arg);
+    $w->modify_font(ref($arg) ? $arg : Gtk2::Pango::FontDescription->from_string($arg));
     $w;
 }
 
-- 
cgit v1.2.1