[svn:dbi] r14023 - dbi/trunk/lib/DBI

[email protected]
Newsgroups perl.dbi.changes
Message-ID <[email protected]>
Author: REHSACK
Date: Mon May 24 05:06:12 2010
New Revision: 14023

Modified:
   dbi/trunk/lib/DBI/DBD.pm

Log:
unify additional test combinations

Modified: dbi/trunk/lib/DBI/DBD.pm
==============================================================================
--- dbi/trunk/lib/DBI/DBD.pm	(original)
+++ dbi/trunk/lib/DBI/DBD.pm	Mon May 24 05:06:12 2010
@@ -3361,6 +3361,14 @@
 	push @all_keys, @new_keys;
     }
 
+    my %uniq_keys;
+    foreach my $key (@all_keys) {
+	@tv_keys = sort split //, $key;
+	my $ordered = join( '', @tv_keys );
+	$uniq_keys{$ordered} = 1;
+    }
+    @all_keys = sort { length $a <=> length $b or $a cmp $b } keys %uniq_keys;
+
     # do whatever needs doing
     if( keys %test_variants ) {
 	# XXX need to convert this to work within the generated Makefile
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.