diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-01 12:24:26 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-01 12:24:26 +0000 |
| commit | 554a63df303f8e513cef57970ea166abada635a9 (patch) | |
| tree | 747dd8cc3b6125fbeda9a996be8c1162b7508af2 /perl-install/ugtk.pm | |
| parent | 5202bfc57db363389dbb777676b5cc180059fe4a (diff) | |
| download | drakx-backup-do-not-use-554a63df303f8e513cef57970ea166abada635a9.tar drakx-backup-do-not-use-554a63df303f8e513cef57970ea166abada635a9.tar.gz drakx-backup-do-not-use-554a63df303f8e513cef57970ea166abada635a9.tar.bz2 drakx-backup-do-not-use-554a63df303f8e513cef57970ea166abada635a9.tar.xz drakx-backup-do-not-use-554a63df303f8e513cef57970ea166abada635a9.zip | |
make perl_checker happy
Diffstat (limited to 'perl-install/ugtk.pm')
| -rw-r--r-- | perl-install/ugtk.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm index c186606ee..ab4961614 100644 --- a/perl-install/ugtk.pm +++ b/perl-install/ugtk.pm @@ -535,7 +535,7 @@ sub gtkicons_labels_widget { $darea->draw(undef); $imlib_counter = 0; $imlib_counter_add = 1; - $use_imlib and $imlib_timeout = Gtk->timeout_add(100, sub { $dbl_area = undef; $darea->draw(undef); 1; }); + $use_imlib and $imlib_timeout = Gtk->timeout_add(100, sub { $dbl_area = undef; $darea->draw(undef); 1 }); } }); $darea->signal_connect(leave_notify_event => sub { @@ -731,8 +731,8 @@ sub gtkset_default_fontset { sub gtkcreate_imlib { my ($f) = shift; - $f =~ m|.png$| or $f="$f.png"; - if ( $f !~ /\//) { -e "$_/$f" and $f="$_/$f", last foreach icon_paths() } + $f =~ m|.png$| or $f = "$f.png"; + if ($f !~ /\//) { -e "$_/$f" and $f = "$_/$f", last foreach icon_paths() } Gtk::Gdk::ImlibImage->load_image($f); } @@ -749,8 +749,8 @@ sub gtkcreate_xpm { sub gtkcreate_png { my ($f) = shift; - $f =~ m|.png$| or $f="$f.png"; - if ($f !~ /\//) { -e "$_/$f" and $f="$_/$f", last foreach icon_paths() } + $f =~ m|.png$| or $f = "$f.png"; + if ($f !~ /\//) { -e "$_/$f" and $f = "$_/$f", last foreach icon_paths() } if ($use_pixbuf) { print " - ugtk - INFO : rendering using gdkpixbuff\n"; my $pixbuf = Gtk::Gdk::Pixbuf->new_from_file($f) or die "gtkcreate_png: missing png file $f"; |