From 0630fb8a8bb835e0a8dc1636c789a22c70889779 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 21 Jun 2001 16:39:14 +0000
Subject: added minimal support for rpmtools >= 3.0

---
 perl-install/pkgs.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index b55e737ea..eb360a53f 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -509,7 +509,8 @@ sub getDeps {
     local *F; open F, "$prefix/var/lib/urpmi/depslist.ordered" or die "can't find dependancies list";
     local $_;
     while (<F>) {
-	my ($name, $version, $release, $sizeDeps) = /^(\S*)-([^-\s]+)-([^-\s]+)\s+(.*)/;
+	my ($name, $version, $release, $arch, $serial, $sizeDeps) =
+	  /^([^:\s]*)-([^:\-\s]+)-([^:\-\s]+)\.([^:\.\-\s]*)(?::(\d+)\S*)?\s+(.*)/;
 	my $pkg = $packages->{names}{$name};
 
 	#- these verification are necessary in case of error, but are no more fatal as
-- 
cgit v1.2.1