From 3907975da95d9fc650b3d779391420bcee6ec0e6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sun, 2 Dec 2012 14:52:14 +0000
Subject: (Pkg_description, Pkg_sourcerpm) split UTF-8 strings from raw strings
 functions, then simplify

---
 URPM.xs | 54 +++++++++++++++++++++++++++++++-----------------------
 1 file changed, 31 insertions(+), 23 deletions(-)

diff --git a/URPM.xs b/URPM.xs
index 2c4d1a2..b5579ae 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -1507,39 +1507,47 @@ void
 Pkg_description(pkg)
   URPM::Package pkg
     ALIAS:
-     sourcerpm = 1
-     packager  = 2
-     buildhost = 3
-     url       = 4
-     license   = 5
-     distribution = 6
-     vendor    = 7
-     os        = 8
-     payload_format = 9
+     packager  = 1
   PPCODE:
-  if (pkg->h)
+  if (pkg->h) {
+       rpmTag tag = ix == 0 ? RPMTAG_DESCRIPTION : RPMTAG_PACKAGER;
+       mXPUSHs(newSVpv_utf8(get_name(pkg->h, tag), 0));
+  }
+
+void
+Pkg_sourcerpm(pkg)
+  URPM::Package pkg
+    ALIAS:
+     buildhost = 1
+     url       = 2
+     license   = 3
+     distribution = 4
+     vendor    = 5
+     os        = 6
+     payload_format = 8
+  PPCODE:
+  if (pkg->h) {
+       rpmTag tag;
        switch (ix) {
-       case 0:
-       mXPUSHs(newSVpv_utf8(get_name(pkg->h, RPMTAG_DESCRIPTION), 0)); break;
        case 1:
-       mXPUSHs(newSVpv(get_name(pkg->h, RPMTAG_SOURCERPM), 0)); break;
+       tag = RPMTAG_BUILDHOST; break;
        case 2:
-       mXPUSHs(newSVpv_utf8(get_name(pkg->h, RPMTAG_PACKAGER), 0)); break;
+       tag = RPMTAG_URL; break;
        case 3:
-       mXPUSHs(newSVpv(get_name(pkg->h, RPMTAG_BUILDHOST), 0)); break;
+       tag = RPMTAG_LICENSE; break;
        case 4:
-       mXPUSHs(newSVpv(get_name(pkg->h, RPMTAG_URL), 0)); break;
+       tag = RPMTAG_DISTRIBUTION; break;
        case 5:
-       mXPUSHs(newSVpv(get_name(pkg->h, RPMTAG_LICENSE), 0)); break;
+       tag = RPMTAG_VENDOR; break;
        case 6:
-       mXPUSHs(newSVpv(get_name(pkg->h, RPMTAG_DISTRIBUTION), 0)); break;
+       tag = RPMTAG_OS; break;
        case 7:
-       mXPUSHs(newSVpv(get_name(pkg->h, RPMTAG_VENDOR), 0)); break;
-       case 8:
-       mXPUSHs(newSVpv(get_name(pkg->h, RPMTAG_OS), 0)); break;
-       case 9:
-       mXPUSHs(newSVpv(get_name(pkg->h, RPMTAG_PAYLOADFORMAT), 0)); break;
+       tag = RPMTAG_PAYLOADFORMAT; break;
+       default:
+       tag = RPMTAG_SOURCERPM; break;
        }
+       mXPUSHs(newSVpv(get_name(pkg->h, tag), 0));
+  }
 
 int
 Pkg_buildtime(pkg)
-- 
cgit v1.2.1