From 8a8770ef143b0c43500b4c5d95da38cd526bb434 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 9 Nov 2006 16:15:13 +0000
Subject: perl_checker compliance

---
 gurpmi | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'gurpmi')

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;
-- 
cgit v1.2.1