summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2006-11-09 16:15:13 +0000
committerPascal Rigaux <pixel@mandriva.com>2006-11-09 16:15:13 +0000
commit8a8770ef143b0c43500b4c5d95da38cd526bb434 (patch)
tree920ba76a52628fc29f120fa33ad690f4f28876ea
parent51eac793bcf872ce65a3fdf517d3fe65b538dc3a (diff)
downloadurpmi-8a8770ef143b0c43500b4c5d95da38cd526bb434.tar
urpmi-8a8770ef143b0c43500b4c5d95da38cd526bb434.tar.gz
urpmi-8a8770ef143b0c43500b4c5d95da38cd526bb434.tar.bz2
urpmi-8a8770ef143b0c43500b4c5d95da38cd526bb434.tar.xz
urpmi-8a8770ef143b0c43500b4c5d95da38cd526bb434.zip
perl_checker compliance
-rw-r--r--gurpmi5
1 files changed, 3 insertions, 2 deletions
diff --git a/gurpmi b/gurpmi
index 72003a1f..3734bba4 100644
--- a/gurpmi
+++ b/gurpmi
@@ -35,7 +35,8 @@ $mainbox = Gtk2::VBox->new(0, 5);
$mainw->add($mainbox);
sub all_descriptions {
- join '', qx(rpm -qp --qf '%{name}-%{version}-%{release}: %{summary}\\n' @_);
+ my (@rpms) = @_;
+ join '', `rpm -qp --qf '%{name}-%{version}-%{release}: %{summary}\\n' @rpms`;
}
foreach (@all_rpms) {
@@ -50,7 +51,7 @@ foreach (@all_rpms) {
/\.src\.rpm$/ ? push(@$srpms, $_) : push(@$rpms, $_);
}
-sub proceed {
+sub proceed() {
#- we need to switch to root if we're not already (via consolehelper)
#- yes. hardcoded paths. safe.
exec $> ? '/usr/bin/gurpmi2' : '/usr/sbin/gurpmi2', @ARGV;