diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-04-01 15:09:39 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-04-01 15:09:39 +0000 |
| commit | 51dbbf65632270ef47e232e5ef2619e353076486 (patch) | |
| tree | 7b31db354e9f91a5126a3f82703725ea1ff3dc3f /perl-install | |
| parent | 59040d524e73723be679a6a049cf9e1953d99e1e (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/ugtk2.pm | 4 |
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)); |