please perl_checker:

- local'ize $_ before doing while (<...>)
- use "foreach" instead of "for"
- remove unneeded parentheses on the right side of infix if/foreach/unless

1 files changed, 1 insertions, 1 deletions

diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm
index feee63e83..93001beb6 100644
--- a/perl-install/ugtk.pm
+++ b/perl-install/ugtk.pm
@@ -787,7 +787,7 @@ sub gtkcreate_xpm {
 
 sub gtkcreate_png_pixbuf {
     my ($f) = shift;
-    die 'gdk-pixbuf library is not available' unless ($use_pixbuf);
+    die 'gdk-pixbuf library is not available' unless $use_pixbuf;
     $f =~ /\.(png|jpg)$/ or $f .= '.png';
     if ($f !~ /^\//) { -e "$_/$f" and $f = "$_/$f", last foreach icon_paths() }
     Gtk::Gdk::Pixbuf->new_from_file($f) or die "gtkcreate_png: missing png file $f";