From b972eafb702e1eb5c624d6e9bbdee9aabf500cf0 Mon Sep 17 00:00:00 2001
From: Jan Kratochvil <jkratoch@fedoraproject.org>
Date: Apr 22 2007 08:52:09 +0000
Subject: Permit excessive files with just a warning.


---

diff --git a/gdbcompare b/gdbcompare
index dff7bb0..012c040 100755
--- a/gdbcompare
+++ b/gdbcompare
@@ -1,5 +1,5 @@
 #! /usr/bin/perl
-# $Id: gdbcompare,v 1.2 2007/01/07 22:47:44 jkratoch Exp $
+# $Id: gdbcompare,v 1.3 2007/01/09 11:34:40 jkratoch Exp $
 
 
 use strict;
@@ -20,12 +20,15 @@ for my $name (sort readdir(DIR)) {
 closedir DIR or die "closedir: $!";
 
 for (values(%arch)) {
-	die "Not 2 elements:\n".Dumper($_) if 2!=@$_;
+	next if 2==@$_;
+	warn "Single element: ".${$_}[0]."\n" if 1==@$_;
+	die "Not 2 elements:\n".Dumper($_) if 1!=@$_;
 }
 
 system("rm -f tests/gdbcompare-*.diff") and die;
 
 for my $arch (sort keys(%arch)) {
+	next if 2!=@{$arch{$arch}};
 	sub trans { return {"."=>0,"-"=>1}->{($_[0]=~/([-.])[^-.]+[.]\w+$/)[0]}.$_[0]; };
 	my @sorted=sort { my $a1=trans $a; my $b1=trans $b; ($b1 cmp $a1) * ($reverse ? -1 : 1); } @{$arch{$arch}};
 	do { system $_ and die $_; } for "diff -u tests/'".$sorted[1]."' tests/'".$sorted[0]."' >tests/gdbcompare-'$arch'.diff;true";