summaryrefslogtreecommitdiffstats
path: root/perl-install/c/stuff.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-06-27 13:54:50 +0000
committerFrancois Pons <fpons@mandriva.com>2001-06-27 13:54:50 +0000
commitff3d073cdf289f179791218bd2b660c82bebf815 (patch)
treeaac8759d3c51913f763c7915192b73a75600ff14 /perl-install/c/stuff.pm
parente1e4b606b15464a5e57a530dfda74ddfa48715f3 (diff)
downloaddrakx-ff3d073cdf289f179791218bd2b660c82bebf815.tar
drakx-ff3d073cdf289f179791218bd2b660c82bebf815.tar.gz
drakx-ff3d073cdf289f179791218bd2b660c82bebf815.tar.bz2
drakx-ff3d073cdf289f179791218bd2b660c82bebf815.tar.xz
drakx-ff3d073cdf289f179791218bd2b660c82bebf815.zip
added support for epoch (serial).
Diffstat (limited to 'perl-install/c/stuff.pm')
-rw-r--r--perl-install/c/stuff.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/c/stuff.pm b/perl-install/c/stuff.pm
index 0121f2904..b6cbd6128 100644
--- a/perl-install/c/stuff.pm
+++ b/perl-install/c/stuff.pm
@@ -19,6 +19,7 @@ sub headerGetEntry {
$q eq 'group' and return from_utf8(headerGetEntry_string($h, RPMTAG_GROUP()));
$q eq 'version' and return headerGetEntry_string($h, RPMTAG_VERSION());
$q eq 'release' and return headerGetEntry_string($h, RPMTAG_RELEASE());
+ $q eq 'epoch' and return headerGetEntry_int($h, RPMTAG_EPOCH());
$q eq 'summary' and return from_utf8(headerGetEntry_string($h, RPMTAG_SUMMARY()));
$q eq 'description' and return from_utf8(headerGetEntry_string($h, RPMTAG_DESCRIPTION()));
$q eq 'arch' and return headerGetEntry_string($h, RPMTAG_ARCH());