add filelinktos() & dirnames() to URPM::Package

2 files changed, 20 insertions, 0 deletions

diff --git a/URPM.pm b/URPM.pm
index a6552bb..3cc75c6 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -509,6 +509,8 @@ Writes a line of information in a synthesis file.
 
 =item $package->description()
 
+=item $package->dirnames()
+
 =item $package->distribution()
 
 =item $package->epoch()
@@ -517,6 +519,8 @@ Writes a line of information in a synthesis file.
 
 =item $package->exclusivearchs()
 
+=item $package->filelinktos()
+
 =item $package->files()
 
 List of files in this rpm.
diff --git a/URPM.xs b/URPM.xs
index 3e28670..d6bc566 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -2271,6 +2271,22 @@ Pkg_exclusivearchs(pkg)
   SPAGAIN;
   
 void
+Pkg_dirnames(pkg)
+  URPM::Package pkg
+  PPCODE:
+  PUTBACK;
+  xpush_simple_list_str(pkg->h, RPMTAG_DIRNAMES);
+  SPAGAIN;
+
+void
+Pkg_filelinktos(pkg)
+  URPM::Package pkg
+  PPCODE:
+  PUTBACK;
+  xpush_simple_list_str(pkg->h, RPMTAG_FILELINKTOS);
+  SPAGAIN;
+
+void
 Pkg_files(pkg)
   URPM::Package pkg
   PPCODE: