From b6d7e9ea967d213b12286d01f7300e6fbd8d0b68 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Tue, 8 Oct 2013 07:13:01 -0700
Subject: [PATCH] Work around emacs bug

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 daa0ec528..2ffb66278 100644
--- a/Shorewall/Perl/Shorewall/Chains.pm
+++ b/Shorewall/Perl/Shorewall/Chains.pm
@@ -5006,7 +5006,7 @@ sub decode_tos( $$ ) {
     my $mask = have_capability( 'NEW_TOS_MATCH' ) ? 0xff : '';
     my $value;
 
-    if ( $tos =~ m"^(.+)/(.+)$" ) {
+    if ( $tos =~ m|^(.+)/(.+)$| ) {
 	require_capability 'NEW_TOS_MATCH', 'A mask', 's';
 	$value = numeric_value $1;
 	$mask  = numeric_value $2;