From bc7f26f382552f46f101e8796a691b7e1b360249 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 31 Dec 2004 18:03:03 +0000 Subject: simplify (we always want the logo, and looking the right path is already done elsewhere) --- perl-install/install_gtk.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm index e4d0ae824..b95063f92 100644 --- a/perl-install/install_gtk.pm +++ b/perl-install/install_gtk.pm @@ -195,14 +195,13 @@ sub create_logo_window { mygtk2::may_destroy($o->{logo_window}); my $file = $o->{meta_class} eq 'firewall' ? "logo-mandrake-Firewall.png" : "logo-mandrake.png"; - -r $file or $file = "$ENV{SHARE_PATH}/$file"; my $w = bless {}, 'ugtk2'; $w->{rwindow} = $w->{window} = gtknew('Window', width => $::logowidth, height => $::logoheight, title => 'skip', widget_name => 'logo', - if_(-r $file, child => gtknew('Image', file => $file)), + child => gtknew('Image', file => $file), ); $w->show; $o->{logo_window} = $w; -- cgit v1.2.1