summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-04-01 15:09:39 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-04-01 15:09:39 +0000
commit51dbbf65632270ef47e232e5ef2619e353076486 (patch)
tree7b31db354e9f91a5126a3f82703725ea1ff3dc3f /perl-install/ugtk2.pm
parent59040d524e73723be679a6a049cf9e1953d99e1e (diff)
downloaddrakx-51dbbf65632270ef47e232e5ef2619e353076486.tar
drakx-51dbbf65632270ef47e232e5ef2619e353076486.tar.gz
drakx-51dbbf65632270ef47e232e5ef2619e353076486.tar.bz2
drakx-51dbbf65632270ef47e232e5ef2619e353076486.tar.xz
drakx-51dbbf65632270ef47e232e5ef2619e353076486.zip
perl_checker fixes
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 5c7f9cf32..d62d2d4e3 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -286,7 +286,7 @@ sub create_scrolled_window {
my ($W, $policy, $viewport_shadow) = @_;
my $w = Gtk2::ScrolledWindow->new(undef, undef);
$policy ||= [ 'automatic', 'automatic' ];
- $w->set_policy(@{$policy});
+ $w->set_policy(@$policy);
if (member(ref($W), qw(Gtk2::Layout Gtk2::Text Gtk2::TextView Gtk2::TreeView))) {
$w->add($W)
} else {
@@ -908,7 +908,7 @@ sub _create_window($$) {
my (undef, $event) = @_;
my $w_size = $event->values;
return if $w_size->[2] == $wi && $w_size->[3] == $he;
- (undef, undef, $wi, $he) = @{$w_size};
+ (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));