From cbe5b9fa9b05ed904aade593a9ce133de8ec5201 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud 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') 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