holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Make conditional directives case insensitive

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2012-08-09 10:30:02 -07:00
parent 4d3fbd1dfa
commit e6ef32ebc2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1898,9 +1898,9 @@ sub process_conditional( $$$$ ) {
print "CD===> $line\n" if $debug; print "CD===> $line\n" if $debug;
cond_error( "Invalid compiler directive ($line)" , $filename, $linenumber ) unless $line =~ /^\s*\?(IF\s+|ELSE|ELSIF\s+|ENDIF)(.*)$/; cond_error( "Invalid compiler directive ($line)" , $filename, $linenumber ) unless $line =~ /^\s*\?(IF\s+|ELSE|ELSIF\s+|ENDIF)(.*)$/i;
my ($keyword, $expression) = ( $1, $2 ); my ($keyword, $expression) = ( uc $1, $2 );
if ( supplied $expression ) { if ( supplied $expression ) {
$expression =~ s/#.*//; $expression =~ s/#.*//;
@ -2508,7 +2508,7 @@ sub read_a_line($) {
# #
# Handle conditionals # Handle conditionals
# #
if ( /^\s*\?(?:IF|ELSE|ELSIF|ENDIF)/ ) { if ( /^\s*\?(?:IF|ELSE|ELSIF|ENDIF)/i ) {
$omitting = process_conditional( $omitting, $_, $currentfilename, $. ); $omitting = process_conditional( $omitting, $_, $currentfilename, $. );
next; next;
} }