diff options
| -rwxr-xr-x | RPM4/examples/hbuildspec | 6 | ||||
| -rwxr-xr-x | RPM4/examples/hdinfo | 8 | ||||
| -rwxr-xr-x | RPM4/examples/hdlist2sdb | 8 | ||||
| -rwxr-xr-x | RPM4/examples/hdlistq | 4 | ||||
| -rwxr-xr-x | RPM4/examples/hdrpmq | 4 | ||||
| -rw-r--r-- | RPM4/examples/hinfo | 4 | ||||
| -rwxr-xr-x | RPM4/examples/rpminstall | 4 | ||||
| -rwxr-xr-x | RPM4/examples/specwillbuild | 6 |
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; |