diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-02-23 11:37:03 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-02-23 11:37:03 +0000 |
commit | 102bfa8541be752d665d6f4e52b61003e0e07b6d (patch) | |
tree | 6b740f726af4f69a92135d666dbe0b2ca4af93a5 | |
parent | a552ba59669ed0172db3240722c573b7ce317e7b (diff) | |
download | perl-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-x | configpm | 4 | ||||
-rw-r--r-- | t/porting/bincompat.t | 2 |
2 files changed, 3 insertions, 3 deletions
@@ -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"); } |