From 96fbda9adc59e01363368bd3b7cb5cfc27dbe98e Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 18 Jul 2003 09:56:52 +0000 Subject: new binding returns a list intead of an array ref --- perl-install/ugtk2.pm | 6 +++--- 1 file 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)); -- cgit v1.2.1