diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-02-05 17:27:29 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-02-05 17:27:29 +0000 |
| commit | cbe5b9fa9b05ed904aade593a9ce133de8ec5201 (patch) | |
| tree | 05a917d8768755f6ad3c483d0317367960c33111 /perl-install | |
| parent | 4c4518584c18382e52be10aca1e86ec8f8903453 (diff) | |
| download | drakx-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.pm | 3 |
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(); |