extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-06-22 18:51:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Quiet down the Perl interpreter on some boxen

Browse Source
This commit is contained in:
Tom Eastep 2010-06-24 13:58:46 -07:00
parent cc376ab72e
commit 2909b6fd92
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Shorewall/Perl/Shorewall/Config.pm
View File

@ -1899,9 +1899,11 @@ sub default ( $$ ) {
sub default_yes_no ( $$ ) { sub default_yes_no ( $$ ) {
my ( $var, $val ) = @_; my ( $var, $val ) = @_;
my $curval = "\L$config{$var}"; my $curval = $config{$var};
if ( defined $curval && $curval ne '' ) { if ( defined $curval && $curval ne '' ) {
$curval = lc $curval;
if ( $curval eq 'no' ) { if ( $curval eq 'no' ) {
$config{$var} = ''; $config{$var} = '';
} else { } else {