From 407b92829f595c26431678f4fac7f6da036d6071 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Thu, 18 Nov 2010 20:12:13 -0800
Subject: [PATCH] Another Perl 5.12 issue

---
 Shorewall/Perl/Shorewall/Config.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm
index 9e05a05f2..40fb9b7ee 100644
--- a/Shorewall/Perl/Shorewall/Config.pm
+++ b/Shorewall/Perl/Shorewall/Config.pm
@@ -2074,7 +2074,7 @@ sub default_log_level( $$ ) {
 #
 sub check_trivalue( $$ ) {
     my ( $var, $default) = @_;
-    my $val = "\L$config{$var}";
+    my $val = lc( $config{$var} || '' );
 
     if ( defined $val ) {
 	if ( $val eq 'yes' || $val eq 'on' ) {