From 4989f694cdff5c09012fb8f3136a9305d375a448 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Thu, 25 Sep 2014 14:47:00 -0700
Subject: [PATCH] Correct trace output

Signed-off-by: Tom Eastep <teastep@shorewall.net>
---
 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 ebbfc0857..dc8e79ec8 100644
--- a/Shorewall/Perl/Shorewall/Chains.pm
+++ b/Shorewall/Perl/Shorewall/Chains.pm
@@ -1682,8 +1682,8 @@ sub insert_irule( $$$$;@ ) {
     $ruleref->{comment} = shortlineinfo( $chainref->{origin} ) || $ruleref->{comment} || $comment;
 
     if ( $number >= @$rulesref ) {
-	$number = @$rulesref;
 	push @$rulesref, $ruleref;
+	$number = @$rulesref;
     } else {
 	splice( @$rulesref, $number, 0, $ruleref );
 	$number++;