From 297cd66d7ba0ab41beb08897af99b963d2cb18d9 Mon Sep 17 00:00:00 2001
From: nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c>
Date: Sat, 8 Oct 2005 17:30:58 +0000
Subject: - code was still using Hdlist :\

git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@41 971eb68f-4bfb-0310-8326-d2484c010a4c
---
 RPM4/bin/rpm_produced | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'RPM4/bin/rpm_produced')

diff --git a/RPM4/bin/rpm_produced b/RPM4/bin/rpm_produced
index e9fe67b..db593dc 100755
--- a/RPM4/bin/rpm_produced
+++ b/RPM4/bin/rpm_produced
@@ -39,13 +39,13 @@ Options:
   --no-src                   do not show the src.rpm
 ";
 
-Hdlist::add_macro("_sourcedir $tmp");
-Hdlist::add_macro("_specdir $tmp");
+RPM4::add_macro("_sourcedir $tmp");
+RPM4::add_macro("_specdir $tmp");
 
 sub set_config {
-    Hdlist::readconfig();
+    RPM4::readconfig();
     foreach (@macros) {
-        Hdlist::add_macro($_);
+        RPM4::add_macro($_);
     }
 }
 
@@ -60,8 +60,8 @@ sub specquery {
 foreach my $file (@ARGV) {
     set_config();
     $file =~ m/\.src\.rpm$/ and do {
-        if(my ($specfile) = Hdlist::installsrpm($file)) {
-            if (my $spec = Hdlist::specnew($specfile, undef, undef, undef, 1, 1)) {
+        if(my ($specfile) = RPM4::installsrpm($file)) {
+            if (my $spec = RPM4::specnew($specfile, undef, undef, undef, 1, 1)) {
                 specquery($spec);
                 $spec->build([qw(RMSOURCE RMSPEC)]);
             }
@@ -69,7 +69,7 @@ foreach my $file (@ARGV) {
         next;
     };
     $file =~ m/\.spec$/ and do {
-        if (my $spec = Hdlist::specnew($file, undef, undef, undef, 1, 1)) {
+        if (my $spec = RPM4::specnew($file, undef, undef, undef, 1, 1)) {
             specquery($spec);
         }
         next;
-- 
cgit v1.2.1