summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-02-05 17:27:29 +0000
committerThierry Vignaud <tv@mandriva.org>2008-02-05 17:27:29 +0000
commitcbe5b9fa9b05ed904aade593a9ce133de8ec5201 (patch)
tree05a917d8768755f6ad3c483d0317367960c33111 /perl-install
parent4c4518584c18382e52be10aca1e86ec8f8903453 (diff)
downloaddrakx-cbe5b9fa9b05ed904aade593a9ce133de8ec5201.tar
drakx-cbe5b9fa9b05ed904aade593a9ce133de8ec5201.tar.gz
drakx-cbe5b9fa9b05ed904aade593a9ce133de8ec5201.tar.bz2
drakx-cbe5b9fa9b05ed904aade593a9ce133de8ec5201.tar.xz
drakx-cbe5b9fa9b05ed904aade593a9ce133de8ec5201.zip
(Gtk2::GUI_Update_Guard->new) prevent a perl_checker warning in callers
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm3
1 files changed, 2 insertions, 1 deletions
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();