aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPer Øyvind Karlsen <peroyvind@mandriva.org>2010-10-03 07:17:13 +0000
committerPer Øyvind Karlsen <peroyvind@mandriva.org>2010-10-03 07:17:13 +0000
commit79d883bb7511144bf2f667fed3c214db439ad86d (patch)
treec21cd12c347c5124899e0449aea7cb0feeba4456
parenta75c65fc803ba593fe0e7ba113e8a759622d0df3 (diff)
downloadperl-URPM-79d883bb7511144bf2f667fed3c214db439ad86d.tar
perl-URPM-79d883bb7511144bf2f667fed3c214db439ad86d.tar.gz
perl-URPM-79d883bb7511144bf2f667fed3c214db439ad86d.tar.bz2
perl-URPM-79d883bb7511144bf2f667fed3c214db439ad86d.tar.xz
perl-URPM-79d883bb7511144bf2f667fed3c214db439ad86d.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 c17170f..05cdc80 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -1821,12 +1821,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;
}