From cbe5b9fa9b05ed904aade593a9ce133de8ec5201 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 5 Feb 2008 17:27:29 +0000
Subject: (Gtk2::GUI_Update_Guard->new) prevent a perl_checker warning in
 callers

---
 perl-install/ugtk2.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/ugtk2.pm')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 6b00d9d90..f10ab284c 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1603,7 +1603,8 @@ package Gtk2::GUI_Update_Guard;
 use MDK::Common::Func qw(before_leaving);
 use ugtk2;
 
-sub new() {
+sub new {
+    my ($_class) = @_; # prevent a perl_checker warning in callers
     my $old_signal = $SIG{ALRM};
     $SIG{ALRM} = sub {
         ugtk2::gtkflush();
-- 
cgit v1.2.1