rpms/gdb/devel gdbcompare,1.2,1.3

[fedora-cvs-commits at redhat.com]

Author: jkratoch

Update of /cvs/dist/rpms/gdb/devel
In directory cvs.devel.redhat.com:/tmp/cvs-serv30858

Modified Files:
	gdbcompare 
Log Message:
Support a new "-r" (reverse) argument.



Index: gdbcompare
===================================================================
RCS file: /cvs/dist/rpms/gdb/devel/gdbcompare,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- gdbcompare	7 Jan 2007 22:47:44 -0000	1.2
+++ gdbcompare	9 Jan 2007 11:34:40 -0000	1.3
@@ -6,6 +6,7 @@
 use warnings;
 use Data::Dumper;
 
+my $reverse=shift @ARGV if ($ARGV[0]||"") eq "-r";
 my $suffix=shift @ARGV if ($ARGV[0]||"")=~/^(?:sum|log)$/;
 $suffix||="sum";
 
@@ -26,7 +27,7 @@
 
 for my $arch (sort keys(%arch)) {
 	sub trans { return {"."=>0,"-"=>1}->{($_[0]=~/([-.])[^-.]+[.]\w+$/)[0]}.$_[0]; };
-	my @sorted=sort { my $a1=trans $a; my $b1=trans $b; $b1 cmp $a1; } @{$arch{$arch}};
+	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";
 }