summaryrefslogtreecommitdiffstats
path: root/mdkapplet
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-11-20 13:31:04 +0000
committerThierry Vignaud <tv@mandriva.org>2008-11-20 13:31:04 +0000
commit7c0314144120d0fd53cd4cbfb79d1e1cfe7f3399 (patch)
tree0b43b96207ebfa9f998b4abd15e9787c3561515a /mdkapplet
parentee0919bff4322d0cdc9fbb4a88146d3cb28745c7 (diff)
downloadmgaonline-7c0314144120d0fd53cd4cbfb79d1e1cfe7f3399.tar
mgaonline-7c0314144120d0fd53cd4cbfb79d1e1cfe7f3399.tar.gz
mgaonline-7c0314144120d0fd53cd4cbfb79d1e1cfe7f3399.tar.bz2
mgaonline-7c0314144120d0fd53cd4cbfb79d1e1cfe7f3399.tar.xz
mgaonline-7c0314144120d0fd53cd4cbfb79d1e1cfe7f3399.zip
perl_checker cleanups
Diffstat (limited to 'mdkapplet')
-rwxr-xr-xmdkapplet6
1 files changed, 3 insertions, 3 deletions
diff --git a/mdkapplet b/mdkapplet
index b3a34b64..aa5061ed 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -262,14 +262,14 @@ Gtk2->main;
ugtk2::exit(0);
-sub get_distro_list {
+sub get_distro_list() {
#- contact the following URL to retrieve the list of released distributions.
my $type = lc($product_id->{type}); $type =~ s/\s//g;
my $extra_path = $::testing || uc($config{TEST_DISTRO_UPGRADE}) eq 'YES' ? 'testing-' : '';
my $list = "http://api.mandriva.com/distributions/$extra_path$type.$product_id->{arch}.list?product=$product_id->{product}";
log::explanations("trying distributions list from $list");
- my @lines = eval {
+ eval {
my $urpm = Rpmdrake::open_db::fast_open_urpmi_db();
# prevent SIGCHILD handler's waitpid to interfere with urpmi waiting
@@ -360,7 +360,7 @@ sub configNetwork() { log::explanations(N_("Launching drakconnect\n")); fork_exe
sub new_portable_dialog {
my ($title) = @_;
- my $w = ugtk2->new($title, width => $width + 20);
+ ugtk2->new($title, width => $width + 20);
}
sub fill_n_run_portable_dialog {