summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2006-11-09 15:37:57 +0000
committerPascal Rigaux <pixel@mandriva.com>2006-11-09 15:37:57 +0000
commit965aec63bcf5c9bb7c808b0d256e18056535b4d3 (patch)
tree71764b4cfab9e724ff2f76cde44eb5e296aeaef3
parent19b1ea0c3efac7d22b561a7909af969424fbb825 (diff)
downloadurpmi-965aec63bcf5c9bb7c808b0d256e18056535b4d3.tar
urpmi-965aec63bcf5c9bb7c808b0d256e18056535b4d3.tar.gz
urpmi-965aec63bcf5c9bb7c808b0d256e18056535b4d3.tar.bz2
urpmi-965aec63bcf5c9bb7c808b0d256e18056535b4d3.tar.xz
urpmi-965aec63bcf5c9bb7c808b0d256e18056535b4d3.zip
perl_checker compliance
-rwxr-xr-xurpmq28
1 files changed, 14 insertions, 14 deletions
diff --git a/urpmq b/urpmq
index 5f369f3a..ad26ca93 100755
--- a/urpmq
+++ b/urpmq
@@ -35,7 +35,7 @@ our @files;
our @names;
our @src_names;
-sub usage {
+sub usage() {
print N("urpmq version %s
Copyright (C) 2000-2006 Mandriva.
This is free software and may be redistributed under the terms of the GNU GPL.
@@ -108,7 +108,7 @@ sub escape_shell ($) {
}
#- parse arguments list.
-@ARGV or usage;
+@ARGV or usage();
my $urpm = new urpm;
urpm::args::parse_cmdline(urpm => $urpm) or exit(1);
@@ -175,8 +175,8 @@ if ($urpm::args::options{list_aliases}) {
exit 0;
} elsif ($urpm::args::options{list_media} || $urpm::args::options{list_url}) {
foreach (@{$urpm->{media}}) {
- next if $urpm::args::options{list_media} eq 'update' and ! $_->{update};
- next if $urpm::args::options{list_media} eq 'active' and $_->{ignore};
+ next if $urpm::args::options{list_media} eq 'update' && !$_->{update};
+ next if $urpm::args::options{list_media} eq 'active' && $_->{ignore};
print $_->{name} . ($urpm::args::options{list_url} ? " $_->{url}" : "") . "\n";
}
exit 0;
@@ -306,11 +306,11 @@ if ($urpm::args::options{list_aliases}) {
$state->{selected} = \%requested;
}
- if ( $urpm::args::options{sources}
- || $urpm::args::options{info}
- || $urpm::args::options{summary}
- || $urpm::args::options{list_files}
- || $urpm::args::options{changelog})
+ if ($urpm::args::options{sources}
+ || $urpm::args::options{info}
+ || $urpm::args::options{summary}
+ || $urpm::args::options{list_files}
+ || $urpm::args::options{changelog})
{
my ($local_sources, $list) = $urpm->get_source_packages($state->{selected});
@@ -353,12 +353,12 @@ if ($urpm::args::options{list_aliases}) {
foreach (split /\|/, $_) {
my $pkg = $urpm->{depslist}[$_] or next;
#- even if non-root, search for a header in the global cachedir
- my $file = $local_sources->{$_} || $downloads{$_} || "$urpm->{cachedir}/headers/".$pkg->header_filename;
+ my $file = $local_sources->{$_} || $downloads{$_} || "$urpm->{cachedir}/headers/" . $pkg->header_filename;
if (-s $file) {
$pkg->update_header($file, keep_all_tags => 1);
} elsif ($< != 0) {
- $pkg->update_header("$tmp_header_dir/".$pkg->header_filename, keep_all_tags => 1);
- unlink "$tmp_header_dir/".$pkg->header_filename;
+ $pkg->update_header("$tmp_header_dir/" . $pkg->header_filename, keep_all_tags => 1);
+ unlink "$tmp_header_dir/" . $pkg->header_filename;
}
if ($urpm::args::options{info}) {
printf "%-12s: %s\n", "Name", $pkg->name;
@@ -397,7 +397,7 @@ if ($urpm::args::options{list_aliases}) {
}
if ($urpm::args::options{list_files}) {
if ($pkg->files) {
- print join("\n", $pkg->files)."\n";
+ print join("\n", $pkg->files) . "\n";
} else {
print STDERR N("No filelist found\n");
}
@@ -407,7 +407,7 @@ if ($urpm::args::options{list_aliases}) {
my @ti = $pkg->changelog_time;
my @na = $pkg->changelog_name;
my @tx = $pkg->changelog_text;
- for my $i (0 .. $#ti) {
+ foreach my $i (0 .. $#ti) {
print "* " . urpm::msg::localtime2changelog($ti[$i]) . " $na[$i]\n$tx[$i]\n\n";
}
} else {