diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-02-21 14:28:20 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-02-21 14:28:20 +0000 |
| commit | c8c192ec4cdfe5efacf225714fb2035fc1f954d8 (patch) | |
| tree | 23019a67221eb578e565db2a16ef0586215d89f2 /Rpmdrake/edit_urpm_sources.pm | |
| parent | 80b94ed2ea867f9a533002be1301caae7add89d7 (diff) | |
| download | rpmdrake-c8c192ec4cdfe5efacf225714fb2035fc1f954d8.tar rpmdrake-c8c192ec4cdfe5efacf225714fb2035fc1f954d8.tar.gz rpmdrake-c8c192ec4cdfe5efacf225714fb2035fc1f954d8.tar.bz2 rpmdrake-c8c192ec4cdfe5efacf225714fb2035fc1f954d8.tar.xz rpmdrake-c8c192ec4cdfe5efacf225714fb2035fc1f954d8.zip | |
perl_checker cleanups
Diffstat (limited to 'Rpmdrake/edit_urpm_sources.pm')
| -rw-r--r-- | Rpmdrake/edit_urpm_sources.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Rpmdrake/edit_urpm_sources.pm b/Rpmdrake/edit_urpm_sources.pm index 788b3804..b5d14e98 100644 --- a/Rpmdrake/edit_urpm_sources.pm +++ b/Rpmdrake/edit_urpm_sources.pm @@ -142,7 +142,7 @@ Please check that your network is currently running. Is it ok to continue?", $distro), want_base_distro => $want_base_distro, transient => $::main_window, - arch => $arch, + 'arch' => $arch, ) or return 0; ref $mirror or return; my $wait = wait_msg(N("Please wait, adding media...")); @@ -1001,7 +1001,7 @@ sub mainwindow() { $remove_button and $remove_button->set_sensitive($#rows != -1); # we can only edit/move one item at a time: $_ and $_->set_sensitive(@rows == 1) foreach $up_button, $dw_button, $edit_button; - return if !$#rows == 0; + return if @rows != 1; my $curr_path = $rows[0]; my $first_path = $model->get_path($model->get_iter_first); @@ -1037,7 +1037,6 @@ sub mainwindow() { $list_tv->append_column(Gtk2::TreeViewColumn->new_with_attributes(N("Type"), Gtk2::CellRendererText->new, 'text' => $col{mainw}{type})); $list_tv->append_column(Gtk2::TreeViewColumn->new_with_attributes(N("Medium"), Gtk2::CellRendererText->new, 'text' => $col{mainw}{name})); - $reread_media; #- closure defined later $tr->signal_connect( toggled => sub { my (undef, $path) = @_; |