summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-10-10 12:46:07 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 21:28:38 +0100
commit6864e4fc1bac9084c26ba4d502350c128c10ef6f (patch)
tree708af356203c4c14592ff0eb2421c08ce0854bc6 /perl-install/interactive
parentdd189f07e45b5d9a9bfac188a046eb7394db6d84 (diff)
downloaddrakx-6864e4fc1bac9084c26ba4d502350c128c10ef6f.tar
drakx-6864e4fc1bac9084c26ba4d502350c128c10ef6f.tar.gz
drakx-6864e4fc1bac9084c26ba4d502350c128c10ef6f.tar.bz2
drakx-6864e4fc1bac9084c26ba4d502350c128c10ef6f.tar.xz
drakx-6864e4fc1bac9084c26ba4d502350c128c10ef6f.zip
(wait_messageW) prevent calling set_title() w/o a title
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/gtk.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 5a8f00ba7..b54813bb0 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -921,7 +921,7 @@ sub wait_messageW {
Glib::Source->remove($reuse_timeout) if $reuse_timeout; $reuse_timeout = '';
my $Window = gtknew('MagicWindow',
- title => $title,
+ if_($title, title => $title),
pop_it => defined $o->{pop_wait_messages} ? $o->{pop_wait_messages} : 1,
pop_and_reuse => $::isInstall,
modal => 1,