From ad6c91bcbd46493c48ebf2ad1ffcf8ba1cfa5713 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Fri, 25 Jul 2014 21:03:48 -0700 Subject: [PATCH] Allow optimize level 8 to work with Perl 5.20.0. Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Chains.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Shorewall/Perl/Shorewall/Chains.pm b/Shorewall/Perl/Shorewall/Chains.pm index b4acfa258..509e1c69b 100644 --- a/Shorewall/Perl/Shorewall/Chains.pm +++ b/Shorewall/Perl/Shorewall/Chains.pm @@ -3503,7 +3503,7 @@ sub optimize_level8( $$$ ) { %renamed = (); while ( $progress ) { - my @chains = ( sort level8_compare grep $_->{referenced} && ! $_->{builtin}, values %{$tableref} ); + my @chains = ( sort { level8_compare($a, $b) } ( grep $_->{referenced} && ! $_->{builtin}, values %{$tableref} ) ); my @chains1 = @chains; my $chains = @chains; my %rename;