summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-12 11:26:15 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-12 11:26:15 +0000
commitab822df75cf6884051525b61dd3e21f2254994b4 (patch)
treeb7bdbb354bc01089ab9f410885e2d81fdb673f3f /perl-install/ugtk2.pm
parent9836f3fe7d2fef5e86015234ebb223afe7ddb844 (diff)
downloaddrakx-backup-do-not-use-ab822df75cf6884051525b61dd3e21f2254994b4.tar
drakx-backup-do-not-use-ab822df75cf6884051525b61dd3e21f2254994b4.tar.gz
drakx-backup-do-not-use-ab822df75cf6884051525b61dd3e21f2254994b4.tar.bz2
drakx-backup-do-not-use-ab822df75cf6884051525b61dd3e21f2254994b4.tar.xz
drakx-backup-do-not-use-ab822df75cf6884051525b61dd3e21f2254994b4.zip
perl_checker compliance ("ref" now need parentheses in many case)
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 200374451..3ddf0b56d 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -285,7 +285,7 @@ sub create_scrolled_window {
my $w = Gtk2::ScrolledWindow->new(undef, undef);
$policy ||= [ 'automatic', 'automatic' ];
$w->set_policy(@{$policy});
- if (member(ref $W, qw(Gtk2::Layout Gtk2::Text Gtk2::TextView Gtk2::TreeView))) {
+ if (member(ref($W), qw(Gtk2::Layout Gtk2::Text Gtk2::TextView Gtk2::TreeView))) {
$w->add($W)
} else {
$w->add_with_viewport($W);
@@ -336,10 +336,10 @@ sub create_box_with_title {
1, gtkpack_($o->{box_title} = Gtk2::VBox->new(0,0),
1, Gtk2::HBox->new(0,0),
(map {
- my $w = ref $_ ? $_ : Gtk2::Label->new($_);
+ my $w = ref($_) ? $_ : Gtk2::Label->new($_);
$::isWizard and $w->set_justify("left");
(0, gtkset_name($w, "Title"));
- } map { ref $_ ? $_ : warp_text($_) } @_),
+ } map { ref($_) ? $_ : warp_text($_) } @_),
1, Gtk2::HBox->new(0,0),
)
),
@@ -348,10 +348,10 @@ sub create_box_with_title {
} else {
gtkpack__($box,
(map {
- my $w = ref $_ ? $_ : Gtk2::Label->new($_);
+ my $w = ref($_) ? $_ : Gtk2::Label->new($_);
$::isWizard and $w->set_justify("left");
gtkset_name($w, "Title");
- } map { ref $_ ? $_ : warp_text($_) } @_),
+ } map { ref($_) ? $_ : warp_text($_) } @_),
if_($a, Gtk2::HSeparator->new)
)
}
@@ -1225,7 +1225,7 @@ sub ask_browse_tree_info_given_widgets {
$common->{display_info} = sub { gtktext_insert($w->{info}, $common->{get_info}($curr)); 0 };
my $children = sub { map { my $v = $w->{tree_model}->get($_, 0); $_->free; $v } gtktreeview_children($w->{tree_model}, $_[0]) };
my $toggle = sub {
- if (ref $curr && !$_[0]) {
+ if (ref($curr) && !$_[0]) {
$w->{tree}->toggle_expansion(my $path = $w->{tree_model}->get_path($curr));
$path->free;
} else {