diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-02-12 11:26:15 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-02-12 11:26:15 +0000 |
| commit | ab822df75cf6884051525b61dd3e21f2254994b4 (patch) | |
| tree | b7bdbb354bc01089ab9f410885e2d81fdb673f3f /perl-install/ugtk2.pm | |
| parent | 9836f3fe7d2fef5e86015234ebb223afe7ddb844 (diff) | |
| download | drakx-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.pm | 12 |
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 { |