aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPer Øyvind Karlsen <peroyvind@mandriva.org>2009-08-06 00:37:36 +0000
committerPer Øyvind Karlsen <peroyvind@mandriva.org>2009-08-06 00:37:36 +0000
commit37cc9dd95810e07ac78cd8a14221e0541fe742d7 (patch)
tree8636b66564496cfcacbc812632c34cba852c830c
parentb097f15ab932e13b65d561a90f0526d6648cd3ac (diff)
downloadperl-URPM-37cc9dd95810e07ac78cd8a14221e0541fe742d7.tar
perl-URPM-37cc9dd95810e07ac78cd8a14221e0541fe742d7.tar.gz
perl-URPM-37cc9dd95810e07ac78cd8a14221e0541fe742d7.tar.bz2
perl-URPM-37cc9dd95810e07ac78cd8a14221e0541fe742d7.tar.xz
perl-URPM-37cc9dd95810e07ac78cd8a14221e0541fe742d7.zip
* as rpm uses unsigned long for epoch, use strtoul() rather than atoi()
* don't mark end of string for extracting epoch, stroul() will automatically stop reading at invalid digit characters
-rw-r--r--URPM.xs6
1 files changed, 2 insertions, 4 deletions
diff --git a/URPM.xs b/URPM.xs
index fc6d840..e5b0971 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -1852,12 +1852,10 @@ Pkg_epoch(pkg)
URPM::Package pkg
CODE:
if (pkg->info) {
- char *s, *eos;
+ char *s;
if ((s = strchr(pkg->info, '@')) != NULL) {
- if ((eos = strchr(s+1, '@')) != NULL) *eos = 0; /* mark end of string to enable searching backwards */
- RETVAL = atoi(s+1);
- if (eos != NULL) *eos = '@';
+ RETVAL = strtoul(s+1, NULL, 10);
} else {
RETVAL = 0;
}