diff options
| author | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2005-10-08 17:31:44 +0000 |
|---|---|---|
| committer | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2005-10-08 17:31:44 +0000 |
| commit | 4c9b180f05693f3e9261914d2b7360789344e2c0 (patch) | |
| tree | bfe8e645b8594ddd0b41c2449627693c0693c20d /RPM4/examples/hdlist2sdb | |
| parent | 297cd66d7ba0ab41beb08897af99b963d2cb18d9 (diff) | |
| download | perl-RPM4-4c9b180f05693f3e9261914d2b7360789344e2c0.tar perl-RPM4-4c9b180f05693f3e9261914d2b7360789344e2c0.tar.gz perl-RPM4-4c9b180f05693f3e9261914d2b7360789344e2c0.tar.bz2 perl-RPM4-4c9b180f05693f3e9261914d2b7360789344e2c0.tar.xz perl-RPM4-4c9b180f05693f3e9261914d2b7360789344e2c0.zip | |
- code was still using Hdlist :\
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@42 971eb68f-4bfb-0310-8326-d2484c010a4c
Diffstat (limited to 'RPM4/examples/hdlist2sdb')
| -rwxr-xr-x | RPM4/examples/hdlist2sdb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/RPM4/examples/hdlist2sdb b/RPM4/examples/hdlist2sdb index e1fe387..e38af93 100755 --- a/RPM4/examples/hdlist2sdb +++ b/RPM4/examples/hdlist2sdb @@ -19,7 +19,7 @@ # $Id$ use strict; -use Hdlist; +use RPM4; use Getopt::Long; GetOptions ( @@ -31,11 +31,11 @@ Synch rpm found into given hdlist into a database. Usefull to create a solve rpm database. "; -$dbpath ||= Hdlist::expand("%_solve_dbpath"); +$dbpath ||= RPM4::expand("%_solve_dbpath"); -Hdlist::add_macro("_dbpath $dbpath"); +RPM4::add_macro("_dbpath $dbpath"); -my $db = Hdlist::newdb(1) or die "Can't open DB"; +my $db = RPM4::newdb(1) or die "Can't open DB"; my %rpmlist; my %indb; |