From 448d957e48f4dccabcadc302337ddfe9db15f2ab Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Sat, 30 Mar 2013 07:20:10 -0700
Subject: [PATCH] Fix use of names for DSCP.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

- From Thibaut Chèze

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 7c1c2a619..0fc52d99f 100644
--- a/Shorewall/Perl/Shorewall/Chains.pm
+++ b/Shorewall/Perl/Shorewall/Chains.pm
@@ -5054,7 +5054,7 @@ sub do_dscp( $ ) {
     my $invert = $dscp =~ s/^!// ? '! ' : '';
     my $value  = numeric_value( $dscp );
 
-    $value = $dscpmap{$value} unless defined $value;
+    $value = $dscpmap{$dscp} unless defined $value;
 
     fatal_error( "Invalid DSCP ($dscp)" ) unless defined $value && $value < 0x2f && ! ( $value & 1 );