From c04c61b314f3639856761d7869d05f65aecbffcc Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Sat, 9 Feb 2013 11:42:54 -0800
Subject: [PATCH] Correct typos in check_rules().

Signed-off-by: Tom Eastep <teastep@shorewall.net>
---
 Shorewall/Perl/Shorewall/Rules.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Shorewall/Perl/Shorewall/Rules.pm b/Shorewall/Perl/Shorewall/Rules.pm
index 6c642d995..abc5e6853 100644
--- a/Shorewall/Perl/Shorewall/Rules.pm
+++ b/Shorewall/Perl/Shorewall/Rules.pm
@@ -2686,8 +2686,8 @@ sub check_state( $ ) {
 	#
 	# This is a state chain
 	#
-	return $state eq 'RELATED'   ? 2 : 0 if $_ eq '+';
-	return $state eq 'INVALID'   ? 2 : 0 if $_ eq '_';
+	return $state eq 'RELATED'   ? 2 : 0 if $1 eq '+';
+	return $state eq 'INVALID'   ? 2 : 0 if $1 eq '_';
 	return $state eq 'UNTRACKED' ? 2 : 0;
     }