diff options
-rw-r--r-- | gurpmi | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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; |