summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-07-18 09:56:52 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-07-18 09:56:52 +0000
commit96fbda9adc59e01363368bd3b7cb5cfc27dbe98e (patch)
tree46087e131e22ff3edebdb2b17b3f91505d5b78de /perl-install/ugtk2.pm
parent355f2d9e6ef66d5944cfcfb5f56d59b218b19565 (diff)
downloaddrakx-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/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm6
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));