From 554a63df303f8e513cef57970ea166abada635a9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 1 Aug 2002 12:24:26 +0000
Subject: make perl_checker happy

---
 perl-install/my_gtk.pm |  5 ++++-
 perl-install/ugtk.pm   | 10 +++++-----
 2 files changed, 9 insertions(+), 6 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 9b23d1ee4..87ff1fa20 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -13,7 +13,10 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $border);
 $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ];
 @EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
 
-use ugtk qw(:all);
+use ugtk qw(:helpers :wrappers :various);
+use common;
+use log;
+
 
 my $forgetTime = 1000; #- in milli-seconds
 $border = 5;
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";
-- 
cgit v1.2.1