diff options
| -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"); } |