From f7f0aced90c8431d8f0809e6a69cf15c9901edcc Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 1 Dec 2004 10:35:09 +0000
Subject: return value for gtkset_mousecursor

---
 perl-install/ugtk2.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index a72aaa945..f16003445 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -175,6 +175,7 @@ sub gtkcombo_setpopdown_strings {
 sub gtkset_mousecursor {
     my ($type, $w) = @_;
     ($w || gtkroot())->set_cursor(Gtk2::Gdk::Cursor->new($type));
+    $w;
 }
 
 sub gtksignal_connect {
-- 
cgit v1.2.1