aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-06-08 18:49:55 +0000
committerThierry Vignaud <tv@mageia.org>2012-06-08 18:49:55 +0000
commit2f294fb2c05c5504e7250a746ab41ca41ee4b1f6 (patch)
tree50a551294b0e954c032dec217c9545598a28659c
parentf79a3a4205864e545fd814c382bc164795659de9 (diff)
downloadperl-URPM-2f294fb2c05c5504e7250a746ab41ca41ee4b1f6.tar
perl-URPM-2f294fb2c05c5504e7250a746ab41ca41ee4b1f6.tar.gz
perl-URPM-2f294fb2c05c5504e7250a746ab41ca41ee4b1f6.tar.bz2
perl-URPM-2f294fb2c05c5504e7250a746ab41ca41ee4b1f6.tar.xz
perl-URPM-2f294fb2c05c5504e7250a746ab41ca41ee4b1f6.zip
(is_platform_compat) kill unimplemented function (dead since switch to
rpm.org in 2007)
-rw-r--r--URPM.pm6
-rw-r--r--URPM.xs13
-rw-r--r--t/parse.t9
3 files changed, 1 insertions, 27 deletions
diff --git a/URPM.pm b/URPM.pm
index b82a314..9513241 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -622,12 +622,6 @@ Returns whether this package is compatible with the current machine's
architecture. 0 means not compatible. The lower the result is, the preferred
the package is.
-=item $package->is_platform_compat()
-
-Return whether this package is compatible with the current machine's
-platform configuration (/etc/rpm/platform). 0 mean not compatible.
-The lower the result is the preferred the package is.
-
=item $package->license()
=item $package->name()
diff --git a/URPM.xs b/URPM.xs
index b457e9b..a0cf670 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -1480,19 +1480,6 @@ Pkg_is_arch_compat__XS(pkg)
OUTPUT:
RETVAL
-int
-Pkg_is_platform_compat(pkg)
- URPM::Package pkg
- INIT:
- CODE:
- croak("is_platform_compat() is available only since rpm 4.4.8");
- { /* to match last } and avoid another #ifdef for it */
- RETVAL = 0;
- }
-
- OUTPUT:
- RETVAL
-
void
Pkg_summary(pkg)
URPM::Package pkg
diff --git a/t/parse.t b/t/parse.t
index ef8b5fd..63c9238 100644
--- a/t/parse.t
+++ b/t/parse.t
@@ -4,7 +4,7 @@
use strict;
use warnings;
-use Test::More tests => 39;
+use Test::More tests => 38;
use MDV::Packdrakeng;
use URPM;
use URPM::Build;
@@ -65,9 +65,6 @@ is($pkg->get_tag(1001), '1.0', 'version');
is($pkg->get_tag(1002), '1mdk', 'release');
is($pkg->queryformat("%{NAME}-%{VERSION}-%{RELEASE}.%{ARCH}"), "test-rpm-1.0-1mdk.noarch",
q(get headers from hdlist));
-rpm_is_jbj_version() ?
- ok($pkg->is_platform_compat() > 0, "can evaluate platform score") :
- pass('no platform compat');
my $headers = eval { [ $b->parse_rpms_build_headers(rpms => [ "tmp/RPMS/noarch/test-rpm-1.0-1mdk.noarch.rpm" ],
dir => 'headers') ] };
@@ -113,7 +110,3 @@ ok(URPM::rpmvercmp("1:1-1mdk", "2:1-1mdk") == -1, "epoch 1 vs 2 = -1");
END { unlink "bad.spec" }
}
-sub rpm_is_jbj_version {
- # checking for --yaml support
- `rpm --help` =~ /yaml/;
-}