Work around emacs bug

Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2013-10-08 07:13:01 -07:00
parent 3c9d984835
commit b6d7e9ea96

View File

@ -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;