summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2011-02-23 11:37:03 +0000
committerNicholas Clark <nick@ccl4.org>2011-02-23 11:37:03 +0000
commit102bfa8541be752d665d6f4e52b61003e0e07b6d (patch)
tree6b740f726af4f69a92135d666dbe0b2ca4af93a5
parenta552ba59669ed0172db3240722c573b7ce317e7b (diff)
downloadperl-102bfa8541be752d665d6f4e52b61003e0e07b6d.tar.gz
No need to sort {non_,}bincompat_options in Config, as they are always sorted.
t/porting/bincompat.t tests that they are in order, so no need to sort them.
-rwxr-xr-xconfigpm4
-rw-r--r--t/porting/bincompat.t2
2 files changed, 3 insertions, 3 deletions
diff --git a/configpm b/configpm
index 55404a52d9..3427f36c22 100755
--- 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 {
diff --git a/t/porting/bincompat.t b/t/porting/bincompat.t
index f65fe3782f..2eb7308d99 100644
--- a/t/porting/bincompat.t
+++ b/t/porting/bincompat.t
@@ -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");
}