From ac9b2488788cba18bc9de7c0202262210fad04a1 Mon Sep 17 00:00:00 2001
From: Remi Collet <remi@remirepo.net>
Date: Wed, 25 Nov 2020 08:29:20 +0100
Subject: cleanoldrpm: fix version to compare

---
 cleanoldrpm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'cleanoldrpm')

diff --git a/cleanoldrpm b/cleanoldrpm
index 17d659c..e8451b9 100755
--- a/cleanoldrpm
+++ b/cleanoldrpm
@@ -34,10 +34,14 @@ foreach (glob("*.rpm") as $name) {
 	if (isset($multi[$i])) {
 		$i .= "/" . substr($info['Version'], 0, $multi[$i]);
 	}
-	$rpms[$i][$info['Version']] = $name;
+	$ver = $info['Version'] . '-' . $info['Release'];
+	if (isset($info['Epoch'])) {
+		$ver = $info['Epoch'] . ':' . $ver;
+	}
+	$rpms[$i][$ver] = $name;
 }
 
-foreach($rpms as $rpm) {
+foreach($rpms as $n => $rpm) {
 	if (count($rpm) > $keep) {
 		uksort($rpm, "rpmvercmp");
 		$i = count($rpm) - $keep;
-- 
cgit