diff options
author | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2005-12-14 15:44:53 +0000 |
---|---|---|
committer | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2005-12-14 15:44:53 +0000 |
commit | 7822bdb7a9d1ad7380ba281fecf79b20bc90dd6f (patch) | |
tree | 4010415fbf010236cce26a69517a872aee66fcae | |
parent | bc551e3227bf79f86c72b0e13b2711192cfa1466 (diff) | |
download | perl-RPM4-7822bdb7a9d1ad7380ba281fecf79b20bc90dd6f.tar perl-RPM4-7822bdb7a9d1ad7380ba281fecf79b20bc90dd6f.tar.gz perl-RPM4-7822bdb7a9d1ad7380ba281fecf79b20bc90dd6f.tar.bz2 perl-RPM4-7822bdb7a9d1ad7380ba281fecf79b20bc90dd6f.tar.xz perl-RPM4-7822bdb7a9d1ad7380ba281fecf79b20bc90dd6f.zip |
- fix hrpmreb with RPM4 (remove Hdlist code)
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@49 971eb68f-4bfb-0310-8326-d2484c010a4c
-rwxr-xr-x | RPM4/bin/hrpmreb | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/RPM4/bin/hrpmreb b/RPM4/bin/hrpmreb index 7febdf5..c2e3edd 100755 --- a/RPM4/bin/hrpmreb +++ b/RPM4/bin/hrpmreb @@ -598,20 +598,23 @@ sub build_spec { nice(RPM4::expand("%{?nice}")) if (RPM4::expandnumeric("%{?nice:1}")); set_ipc_status(currentstep => "checking dep"); - my @pb; + my $pbs; { my $db = RPM4::newdb(); my $sh = $spec->srcheader(); $db->transadd($sh, "", 0); $db->transcheck; - @pb = $db->transpb(); + $pbs = $db->transpbs(); } $chkdeptime = time; - if (@pb) { + if ($pbs) { + $pbs->init; loging("\nMissing dependancies:\n"); - loging("$_\n") foreach(RPM4::format_rpmpb(@pb)); + while($pbs->hasnext) { + loging($pbs->problem() . "\n"); + } $rc = 1; } elsif(! $nobuild) { set_ipc_status(currentstep => "compiling"); |