diff options
author | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2005-10-08 17:30:58 +0000 |
---|---|---|
committer | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2005-10-08 17:30:58 +0000 |
commit | 297cd66d7ba0ab41beb08897af99b963d2cb18d9 (patch) | |
tree | c46399c6b6f53c6230c03571736ece0563a71021 /RPM4/bin/urpm_interactive | |
parent | ac5e12a473b51adcb2d0bcce40fe2d7a34d506a2 (diff) | |
download | perl-RPM4-297cd66d7ba0ab41beb08897af99b963d2cb18d9.tar perl-RPM4-297cd66d7ba0ab41beb08897af99b963d2cb18d9.tar.gz perl-RPM4-297cd66d7ba0ab41beb08897af99b963d2cb18d9.tar.bz2 perl-RPM4-297cd66d7ba0ab41beb08897af99b963d2cb18d9.tar.xz perl-RPM4-297cd66d7ba0ab41beb08897af99b963d2cb18d9.zip |
- code was still using Hdlist :\
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@41 971eb68f-4bfb-0310-8326-d2484c010a4c
Diffstat (limited to 'RPM4/bin/urpm_interactive')
-rwxr-xr-x | RPM4/bin/urpm_interactive | 14 |
1 files changed, 7 insertions, 7 deletions
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 > "; |