From 12aecdef3772e9ed683a8713fd14986d073a4eac Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Tue, 17 Aug 2010 09:17:25 -0700 Subject: [PATCH] Use '&' trick to avoid prototype matching --- Shorewall/Perl/Shorewall/Chains.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Chains.pm b/Shorewall/Perl/Shorewall/Chains.pm index 4274d992b..319e24d06 100644 --- a/Shorewall/Perl/Shorewall/Chains.pm +++ b/Shorewall/Perl/Shorewall/Chains.pm @@ -1012,9 +1012,7 @@ sub find_chain($$) { # sub ensure_chain($$) { - my ($table, $chain) = @_; - - find_chain( $table, $chain ) || new_chain( $table, $chain ); + &find_chain( @_ ) || &new_chain( @_ ); } #