perl_checker compliance

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;