This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
No need to sort {non_,}bincompat_options in Config, as they are always sorted.
authorNicholas Clark <nick@ccl4.org>
Wed, 23 Feb 2011 11:37:03 +0000 (11:37 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 23 Feb 2011 11:37:03 +0000 (11:37 +0000)
t/porting/bincompat.t tests that they are in order, so no need to sort them.

configpm
t/porting/bincompat.t

index 55404a5..3427f36 100755 (executable)
--- a/configpm
+++ b/configpm
@@ -159,11 +159,11 @@ use warnings;
 use vars '%Config';
 
 sub bincompat_options {
-    return sort split ' ', (Internals::V())[0];
+    return split ' ', (Internals::V())[0];
 }
 
 sub non_bincompat_options {
-    return sort split ' ', (Internals::V())[1];
+    return split ' ', (Internals::V())[1];
 }
 
 sub compile_date {
index f65fe37..2eb7308 100644 (file)
@@ -13,6 +13,6 @@ my @to_check = qw(bincompat_options non_bincompat_options);
 my @V = map {s/^ //r} Internals::V();
 
 while (my ($index, $sub) = each @to_check) {
-    my $got = join ' ', &{Config->can($sub)}();
+    my $got = join ' ', sort &{Config->can($sub)}();
     is($got, $V[$index], "C source code has $sub in sorted order");
 }