(platformscore) kill it (unimplemented for 5 years)

git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@205 971eb68f-4bfb-0310-8326-d2484c010a4c

2 files changed, 1 insertions, 17 deletions

diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs
index 96a0ab1..f0eea94 100644
--- a/RPM4/src/RPM4.xs
+++ b/RPM4/src/RPM4.xs
@@ -768,16 +768,6 @@ archscore(arch, build = 0)
     OUTPUT:
     RETVAL
     
-int
-platformscore(platform)
-    const char * platform
-    PREINIT:
-    CODE:
-    RETVAL=0;
-    croak("platformscore exists only from rpm 4.4.8; unused anyway");
-    OUTPUT:
-    RETVAL
-
 void
 buildhost()
     PREINIT:
diff --git a/RPM4/t/03rpmlib.t b/RPM4/t/03rpmlib.t
index 996bfce..c462768 100755
--- a/RPM4/t/03rpmlib.t
+++ b/RPM4/t/03rpmlib.t
@@ -1,7 +1,7 @@
 # $Id$
 
 use strict;
-use Test::More tests => 53;
+use Test::More tests => 52;
 use FindBin qw($Bin);
 use RPM4;
 
@@ -27,12 +27,6 @@ close($null);
 ok(length(RPM4::getosname), "Return OS name");
 ok(length(RPM4::getarchname), "Return arch name");
 ok(length(RPM4::buildhost), "Return buildhost");
-SKIP: {
-    eval { RPM4::platformscore(""); };
-    skip "no RPM4::platformscore()", 1 if($@);
-
-ok(RPM4::platformscore("any-any-nonos") == 0, "can evaluate platform score");
-}
 
 # Playing with macros
 my $target_cpu = RPM4::expand("%_target_cpu");