summaryrefslogtreecommitdiffstats
path: root/RPM4
diff options
context:
space:
mode:
authornanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c>2005-10-08 17:31:44 +0000
committernanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c>2005-10-08 17:31:44 +0000
commit4c9b180f05693f3e9261914d2b7360789344e2c0 (patch)
treebfe8e645b8594ddd0b41c2449627693c0693c20d /RPM4
parent297cd66d7ba0ab41beb08897af99b963d2cb18d9 (diff)
downloadperl-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')
-rwxr-xr-xRPM4/examples/hbuildspec6
-rwxr-xr-xRPM4/examples/hdinfo8
-rwxr-xr-xRPM4/examples/hdlist2sdb8
-rwxr-xr-xRPM4/examples/hdlistq4
-rwxr-xr-xRPM4/examples/hdrpmq4
-rw-r--r--RPM4/examples/hinfo4
-rwxr-xr-xRPM4/examples/rpminstall4
-rwxr-xr-xRPM4/examples/specwillbuild6
8 files changed, 22 insertions, 22 deletions
diff --git a/RPM4/examples/hbuildspec b/RPM4/examples/hbuildspec
index d0204db..ae26bbd 100755
--- a/RPM4/examples/hbuildspec
+++ b/RPM4/examples/hbuildspec
@@ -19,7 +19,7 @@
# $Id$
use strict;
-use Hdlist;
+use RPM4;
use Getopt::Long;
(@ARGV) or die
@@ -28,10 +28,10 @@ Give rpms filename produce by a specfile
";
foreach (@ARGV) {
- my $spec = Hdlist::specnew($_);
+ my $spec = RPM4::specnew($_);
my @err = $spec->check();
if (@err) {
- foreach (Hdlist::print_rpmpb(@err)) {
+ foreach (RPM4::print_rpmpb(@err)) {
print "\t$_\n";
}
} else {
diff --git a/RPM4/examples/hdinfo b/RPM4/examples/hdinfo
index 3d3de25..cbbb9dc 100755
--- a/RPM4/examples/hdinfo
+++ b/RPM4/examples/hdinfo
@@ -19,13 +19,13 @@
# $Id$
use strict;
-use Hdlist;
+use RPM4;
-my $arch = Hdlist::getarchname();
+my $arch = RPM4::getarchname();
print "arch = " . $arch . "\n";
-my $os = Hdlist::getosname();
+my $os = RPM4::getosname();
print "os = " . $os . "\n";
-my $host = Hdlist::buildhost();
+my $host = RPM4::buildhost();
print "host = " . $host . "\n";
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;
diff --git a/RPM4/examples/hdlistq b/RPM4/examples/hdlistq
index 1e2489a..31d7e55 100755
--- a/RPM4/examples/hdlistq
+++ b/RPM4/examples/hdlistq
@@ -19,7 +19,7 @@
# $Id$
use strict;
-use Hdlist;
+use RPM4;
use Getopt::Long;
my $qf = "%{NAME}-%{VERSION}-%{RELEASE}.%{ARCH}\n";
@@ -45,7 +45,7 @@ Description :\n%{DESCRIPTION}
my ($type, $name, $flag, $ENV, $dep);
if ($cond) {
my @d = split(/ +/, $cond);
- $dep = Hdlist::newdep(@d);
+ $dep = RPM4::newdep(@d);
}
($go_res && @ARGV) or die
diff --git a/RPM4/examples/hdrpmq b/RPM4/examples/hdrpmq
index 5d9c91e..6fac541 100755
--- a/RPM4/examples/hdrpmq
+++ b/RPM4/examples/hdrpmq
@@ -19,7 +19,7 @@
# $Id$
use strict;
-use Hdlist;
+use RPM4;
use Getopt::Long;
my $qf = "%{NAME}-%{VERSION}-%{RELEASE}.%{ARCH}\n";
@@ -30,7 +30,7 @@ my $go_res = GetOptions (
($go_res && @ARGV) or die
"$0 [--qf|--queryformat rpm_query] rpm1 [rpm2 [...]]
-Do something like `rpm -qp --queryformat' using perl-Hdlist
+Do something like `rpm -qp --queryformat' using perl-RPM4
example: $0 --qf '%{NAME}\\n' test-rpm-1.0-1mdk.noarch.rpm
";
diff --git a/RPM4/examples/hinfo b/RPM4/examples/hinfo
index 29e1f77..c6bf530 100644
--- a/RPM4/examples/hinfo
+++ b/RPM4/examples/hinfo
@@ -19,7 +19,7 @@
# $Id$
use strict;
-use Hdlist;
+use RPM4;
(@ARGV) or die("$0 <rpmfilename>");
@@ -28,7 +28,7 @@ foreach (@ARGV) {
if($header) {
print "tag\tnom\t\texiste\tvaleur\n";
foreach ($header->listtag) {
- print "$_\t" . Hdlist::tagName($_) . "\t\t";
+ print "$_\t" . RPM4::tagName($_) . "\t\t";
my $e;
$e = $header->hastag("$_");
print "$e\t";
diff --git a/RPM4/examples/rpminstall b/RPM4/examples/rpminstall
index fef5caf..559f919 100755
--- a/RPM4/examples/rpminstall
+++ b/RPM4/examples/rpminstall
@@ -19,7 +19,7 @@
# $Id$
use strict;
-use Hdlist;
+use RPM4;
use Getopt::Long qw(:config pass_through);
sub help {
@@ -72,7 +72,7 @@ GetOptions(
(@rpmi || @rpme) or help();
if (defined($dbpath)) {
- Hdlist::add_macro("_dbpath $dbpath");
+ RPM4::add_macro("_dbpath $dbpath");
}
my $db = newdb(0, $root);
diff --git a/RPM4/examples/specwillbuild b/RPM4/examples/specwillbuild
index 7ccbbf9..2ecc584 100755
--- a/RPM4/examples/specwillbuild
+++ b/RPM4/examples/specwillbuild
@@ -19,7 +19,7 @@
# $Id$
use strict;
-use Hdlist;
+use RPM4;
use Getopt::Long;
(@ARGV) or die
@@ -28,8 +28,8 @@ Give rpms filename produce by a specfile
";
foreach (@ARGV) {
- Hdlist::readconfig();
- my $spec = Hdlist::specnew($_, undef, undef, undef, 1, 1);
+ RPM4::readconfig();
+ my $spec = RPM4::specnew($_, undef, undef, undef, 1, 1);
defined $spec or do {
warn "unable to parse $_\n";
next;