From 4c739cb2352af8f2102464714b4563ce2c53912f Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Thu, 3 Nov 2005 13:22:05 +0000
Subject: Don't use MDK::Common

---
 gurpmi | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'gurpmi')

diff --git a/gurpmi b/gurpmi
index 66140279..dfafff94 100644
--- a/gurpmi
+++ b/gurpmi
@@ -11,12 +11,10 @@ BEGIN { #- set up a safe path and environment
 }
 
 use Gtk2;
-use MDK::Common::Func qw(partition);
-
 use gurpmi;
 
 #- globals
-my ($srpms, $rpms);
+my ($srpms, $rpms) = ([], []);
 my ($mainw, $mainbox);
 my @all_rpms = gurpmi::parse_command_line();
 
@@ -39,9 +37,13 @@ sub all_descriptions {
     join '', qx(rpm -qp --qf '%{name}-%{version}-%{release}: %{summary}\\n' @_);
 }
 
+foreach (@all_rpms) {
+    warn "$_";
+    /\.src\.rpm$/ ? push(@$srpms, $_) : push(@$rpms, $_);
+}
+
 #- Ask question: save or install ?
 #- change depending on the number of rpms, and on the presence of srpms
-($srpms, $rpms) = partition { /\.src\.rpm$/ } @all_rpms;
 {
     my $msg = (
 	@$srpms > 0
-- 
cgit v1.2.1