rpms
/
gdb
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Permit excessive files with just a warning.

This commit is contained in:
Jan Kratochvil 2007-04-22 08:52:09 +00:00
parent 9a64326ab3
commit b972eafb70
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gdbcompare
View File

@ -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";