From 15ad66df5155d7a6135fdd513cf20f3361ee1e05 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 10 Feb 2004 09:49:41 +0000 Subject: remove many warnings about unitialised value (causing a bug in diagnostics.pm?) --- perl-install/ugtk2.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index cdb0a5085..a76dd695e 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -1597,7 +1597,7 @@ sub set { package Gtk2::WrappedLabel; sub new { my ($_type, $o_text) = @_; - ugtk2::gtkset_line_wrap(Gtk2::Label->new($o_text), 1); + ugtk2::gtkset_line_wrap(Gtk2::Label->new($o_text || ''), 1); } -- cgit v1.2.1