From 665d9ad8aa8b8a71198ef8b6cae00e94b9244391 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 12 Aug 1999 12:05:22 +0000
Subject: no_comment

---
 perl-install/pkgs.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 22256af4e..340036fc9 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -23,12 +23,15 @@ sub skipThisPackage { member($_[0], @skipThesesPackages) }
 
 sub Package {
     my ($packages, $name) = @_;
-    $packages->{$name} or die "unknown package $name";
+    $packages->{$name} ;# or die "unknown package $name"; hack hack :(
 }
 
 sub select($$;$) {
     my ($packages, $p, $base) = @_;
     $p->{selected} = -1; # selected by user
+    unless ($p->{deps}) {
+	1;
+    }
     my @l = @{$p->{deps}};
     while (@l) {
 	my $n = shift @l;
@@ -107,6 +110,7 @@ sub psUsingDirectory(;$) {
     log::l("scanning $dirname for packages");
     foreach (all("$dirname")) {
 	my ($name, $version, $release) = /(.*)-([^-]+)-([^-.]+)\.[^.]+\.rpm/ or log::l("skipping $_"), next;
+
 	$packages{$name} = {
             name => $name, version => $version, release => $release,
 	    file => "$dirname/$_", selected => 0, deps => [],
@@ -125,7 +129,7 @@ sub getDeps($) {
 	$packages->{$name} or next;
 	$packages->{$name}->{size} = $size;
 	$packages->{$name}->{deps} = \@deps;
-	map { push @{$packages->{$_}->{provides}}, $name } @deps;
+	map { push @{$packages->{$_}->{provides}}, $name if $packages->{$_} } @deps;
     }
 }
 
-- 
cgit v1.2.1