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/urpm_interactive | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'RPM4/bin/urpm_interactive')

diff --git a/RPM4/bin/urpm_interactive b/RPM4/bin/urpm_interactive
index 7756fea..59e5f04 100755
--- a/RPM4/bin/urpm_interactive
+++ b/RPM4/bin/urpm_interactive
@@ -21,14 +21,14 @@
 use strict;
 use warnings;
 
-use Hdlist::Media;
-use Hdlist::Media::Solve;
+use RPM4::Media;
+use RPM4::Media::Solve;
 use Term::ReadLine;
 use Text::ParseWords;
 use urpm;
 use Getopt::Long;
 
-#Hdlist::setverbosity('DEBUG');
+#RPM4::setverbosity('DEBUG');
 
 my $dbpath;
 
@@ -37,9 +37,9 @@ GetOptions(
 );
 
 
-Hdlist::add_macro("_dbpath $dbpath") if ($dbpath);
+RPM4::add_macro("_dbpath $dbpath") if ($dbpath);
 
-my $s = Hdlist::Media::Solve->new(
+my $s = RPM4::Media::Solve->new(
 );
 
 {
@@ -50,7 +50,7 @@ my $s = Hdlist::Media::Solve->new(
        my $dir = $m->{url};
        $dir =~ s!file:/+!/!;
        $s->addmedia(
-           Hdlist::Media->new(
+           RPM4::Media->new(
                hdlist => $m->{with_hdlist},
                rpmsdir => $dir,
            ),
@@ -62,7 +62,7 @@ $s->add_system_dep('REQUIRE', "basesystem");
 
 $s->load();
 
-my $term = new Term::ReadLine 'Hdlist';
+my $term = new Term::ReadLine 'RPM4';
 
 my $prompt = "urpm > ";
 
-- 
cgit v1.2.1