aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--URPM.xs34
1 files changed, 20 insertions, 14 deletions
diff --git a/URPM.xs b/URPM.xs
index 5e053b8..47f3fe5 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -1599,6 +1599,26 @@ Pkg_release(pkg)
XPUSHs(sv_2mortal(newSVpv(release, 0)));
restore_chars();
+void Pkg_disttag(pkg)
+ URPM::Package pkg
+ INIT:
+ char *disttag;
+ PPCODE:
+ if(get_fullname_parts(pkg, NULL, NULL, NULL, NULL, &disttag, NULL, NULL, NULL))
+ croak("invalid fullname");
+ XPUSHs(sv_2mortal(newSVpv(disttag, 0)));
+ restore_chars();
+
+void Pkg_distepoch(pkg)
+ URPM::Package pkg
+ INIT:
+ char *distepoch;
+ PPCODE:
+ if(get_fullname_parts(pkg, NULL, NULL, NULL, NULL, NULL, &distepoch, NULL, NULL))
+ croak("invalid fullname");
+ XPUSHs(sv_2mortal(newSVpv(distepoch, 0)));
+ restore_chars();
+
void
Pkg_arch(pkg)
URPM::Package pkg
@@ -2215,20 +2235,6 @@ Pkg_dirnames(pkg)
xpush_simple_list_str(pkg->h, RPMTAG_DIRNAMES);
SPAGAIN;
-void Pkg_distepoch(pkg)
- URPM::Package pkg
- PPCODE:
- if (pkg->h) {
- XPUSHs(sv_2mortal(newSVpv(get_name(pkg->h, RPMTAG_DISTEPOCH), 0)));
- }
-
-void Pkg_disttag(pkg)
- URPM::Package pkg
- PPCODE:
- if (pkg->h) {
- XPUSHs(sv_2mortal(newSVpv(get_name(pkg->h, RPMTAG_DISTTAG), 0)));
- }
-
void
Pkg_filelinktos(pkg)
URPM::Package pkg