From f2178d524a5a249284ceeeb7401b0b3ed1ba9d93 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Michael=20Schr=C3=B6der?= <mls@suse.de>
Date: Mon, 29 Jan 2007 06:17:46 +0000
Subject: - fix read_spec call, oops...

---
 substitutedeps | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/substitutedeps b/substitutedeps
index 9b08725..8093d12 100755
--- a/substitutedeps
+++ b/substitutedeps
@@ -46,13 +46,10 @@ my $cf = Build::read_config_dist($dist, $archs, $configdir);
 
 #######################################################################
 
-my ($packname, $packvers, $subpacks, @packdeps);
-$subpacks = [];
-
 my $xspec = [];
-($packname, $packvers, $subpacks, @packdeps) = Build::read_spec($cf, $spec, $xspec);
-my @sdeps = @packdeps;
-my @neg = map {substr($_, 1)} grep {/^-/} @packdeps;
+my $d = Build::read_spec($cf, $spec, $xspec) || {};
+my @sdeps = @{$d->{'deps'} || []};
+my @neg = map {substr($_, 1)} grep {/^-/} @{$d->{'deps'} || []};
 my %neg = map {$_ => 1} @neg;
 @sdeps = grep {!$neg{$_}} @sdeps;
 @sdeps = Build::do_subst($cf, @sdeps);
-- 
cgit v1.2.3