rpms/gdb/devel gdbcompare,1.4,1.5

[Jan Kratochvil (jkratoch) <fedora-extras-commits redhat com>]

Author: jkratoch

Update of /cvs/pkgs/rpms/gdb/devel
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv16703

Modified Files:
	gdbcompare 
Log Message:
Update for the new multitestsuite layout since gdb-6.7.1-15.fc9.



Index: gdbcompare
===================================================================
RCS file: /cvs/pkgs/rpms/gdb/devel/gdbcompare,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- gdbcompare	22 Apr 2007 08:52:09 -0000	1.4
+++ gdbcompare	1 Mar 2008 08:01:57 -0000	1.5
@@ -14,7 +14,8 @@
 opendir DIR,"tests" or die "opendir: $!";
 my %arch;
 for my $name (sort readdir(DIR)) {
-	next if $name!~/^gdb-.*[-.]([^-.]+)[.]$suffix$/o;
+	# next if $name!~/^gdb-.*[-.]([^-.]+)[.]$suffix$/o;
+	next if $name!~/^\d+-(.*)[.]$suffix$/o;
 	push @{$arch{$1}},$name;
 }
 closedir DIR or die "closedir: $!";
@@ -29,12 +30,13 @@
 
 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";
+	# sub trans { return {"."=>0,"-"=>1}->{($_[0]=~/([-.])[^-.]+[.]\w+$/)[0]}.$_[0]; };
+	sub trans { return $_[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'.'$suffix'.diff;true";
 }
 
-system("vim tests/gdbcompare-*.diff");
+system("vim tests/gdbcompare-*.'$suffix'.diff");
 
 __END__;