From f7cccc53ee5c362026c871287d0197e556f2f132 Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Thu, 13 Feb 2003 10:20:19 +0000
Subject: [PATCH] details

---
 rpm_compare/rpm_compare | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/rpm_compare/rpm_compare b/rpm_compare/rpm_compare
index 74971c4..10d9364 100755
--- a/rpm_compare/rpm_compare
+++ b/rpm_compare/rpm_compare
@@ -16,8 +16,6 @@ my @RPMPATHS=(
 	"/home/ward/REDHAT73/homemade",
 );
 
-my $SSH="/usr/bin/ssh";
-
 my %instrpms = ();
 my %refrpms = ();
 my %option = ();
@@ -63,6 +61,7 @@ sub pathread {
 		}
 		closedir DH;
 	}
+	&outputnewest(%refrpms);
 }
 
 sub fileread($) {
@@ -102,7 +101,7 @@ sub comparerpms() {
 	foreach ( sort keys %instrpms ) {
 		if ( exists $refrpms{$_} ) {
 			$correct = @{$refrpms{$_}}[0]->{'FILENAME'};
-			$correct =~ s/\.(i[36]86|noarch)(\.rpm)?$//;
+			$correct =~ s/\.(i[36]86|athlon|noarch)(\.rpm)?$//;
 			foreach $installed ( @{$instrpms{$_}} ) {
 				unless ( $correct eq $installed ) {
 					print "\ncorrect:	$correct\n";
@@ -150,7 +149,7 @@ sub splitname($$) {
 	my $build;
 	my $arch;
 
-	if ( $fullname =~ /(.*?)-([^-]*)-([^-]*)\.(i[36]86|noarch)(\.rpm)?$/ ) {
+	if ( $fullname =~ /(.*?)-([^-]*)-([^-]*)\.(i[36]86|athlon|noarch)(\.rpm)?$/ ) {
 		$packagename = $1;
 		$version = $2;
 		$build =$3;