diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-18 09:56:52 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-18 09:56:52 +0000 |
| commit | 96fbda9adc59e01363368bd3b7cb5cfc27dbe98e (patch) | |
| tree | 46087e131e22ff3edebdb2b17b3f91505d5b78de /perl-install | |
| parent | 355f2d9e6ef66d5944cfcfb5f56d59b218b19565 (diff) | |
| download | drakx-96fbda9adc59e01363368bd3b7cb5cfc27dbe98e.tar drakx-96fbda9adc59e01363368bd3b7cb5cfc27dbe98e.tar.gz drakx-96fbda9adc59e01363368bd3b7cb5cfc27dbe98e.tar.bz2 drakx-96fbda9adc59e01363368bd3b7cb5cfc27dbe98e.tar.xz drakx-96fbda9adc59e01363368bd3b7cb5cfc27dbe98e.zip | |
new binding returns a list intead of an array ref
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk2.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index d080104fb..972ed2a64 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -935,9 +935,9 @@ sub _create_window($$) { my ($wi, $he); $w->signal_connect(size_allocate => sub { my (undef, $event) = @_; - my $w_size = $event->values; - return if $w_size->[2] == $wi && $w_size->[3] == $he; #BUG - (undef, undef, $wi, $he) = @$w_size; + my @w_size = $event->values; + return if $w_size[2] == $wi && $w_size[3] == $he; #BUG + (undef, undef, $wi, $he) = @w_size; my ($X, $Y, $Wi, $He) = @{$force_center || $o->{force_center}}; $w->set_uposition(max(0, $X + ($Wi - $wi) / 2), max(0, $Y + ($He - $he) / 2)); |