(EVR) fix it on packages from rpmdb (was ok on synthesis ones) (mga#7739)

2 files changed, 7 insertions, 2 deletions

diff --git a/NEWS b/NEWS
index c255a6e..aac1f36 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+- fix EVR() on packages from rpmdb (was ok on synthesis ones) (mga#7739)
+
 Version 4.21 - 4 December 2012
 
 - prefer package from first medium when same NEVR exists in several media
diff --git a/URPM.xs b/URPM.xs
index 4391c68..3818162 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -1453,8 +1453,11 @@ Pkg_EVR(pkg)
          mXPUSHs(newSVpv(res, 0));
          *arch = '.'; /* restore info string modified */
       }
-    } else if (pkg->h)
-         mXPUSHs(newSVpv(get_name(pkg->h, RPMTAG_EVR), 0));
+    } else if (pkg->h) {
+         char *s = headerGetAsString(pkg->h, RPMTAG_EVR);
+         mXPUSHs(newSVpv(s, 0));
+         free(s);
+    }
 
 void
 Pkg_arch(pkg)