extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-12-02 04:23:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

Correct compiler directives WRT omitting

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2017-03-07 11:51:40 -08:00
parent bdf0950317
commit 944651e46d
No known key found for this signature in database
GPG Key ID: 96E6B3F2423A4D10
1 changed files with 49 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2995,58 +2995,70 @@ sub process_compiler_directive( $$$$ ) {
} , } ,
ERROR => sub() { ERROR => sub() {
directive_error( evaluate_expression( $expression , unless ( $omitting ) {
$filename , directive_error( evaluate_expression( $expression ,
$linenumber , $filename ,
1 ) , $linenumber ,
$filename , 1 ) ,
$linenumber ) unless $omitting; $filename ,
$linenumber ) unless $omitting;
}
} , } ,
WARNING => sub() { WARNING => sub() {
directive_warning( $config{VERBOSE_MESSAGES} , unless ( $omitting ) {
evaluate_expression( $expression , directive_warning( $config{VERBOSE_MESSAGES} ,
$filename , evaluate_expression( $expression ,
$linenumber , $filename ,
1 ), $linenumber ,
$filename , 1 ),
$linenumber ) unless $omitting; $filename ,
$linenumber ) unless $omitting;
}
} , } ,
INFO => sub() { INFO => sub() {
directive_info( $config{VERBOSE_MESSAGES} , unless ( $omitting ) {
evaluate_expression( $expression , directive_info( $config{VERBOSE_MESSAGES} ,
$filename , evaluate_expression( $expression ,
$linenumber , $filename ,
1 ), $linenumber ,
$filename , 1 ),
$linenumber ) unless $omitting; $filename ,
$linenumber ) unless $omitting;
}
} , } ,
'WARNING!' => sub() { 'WARNING!' => sub() {
directive_warning( ! $config{VERBOSE_MESSAGES} , unless ( $omitting ) {
evaluate_expression( $expression , directive_warning( ! $config{VERBOSE_MESSAGES} ,
$filename , evaluate_expression( $expression ,
$linenumber , $filename ,
1 ), $linenumber ,
$filename , 1 ),
$linenumber ) unless $omitting; $filename ,
$linenumber ) unless $omitting;
}
} , } ,
'INFO!' => sub() { 'INFO!' => sub() {
directive_info( ! $config{VERBOSE_MESSAGES} , unless ( $omitting ) {
evaluate_expression( $expression , directive_info( ! $config{VERBOSE_MESSAGES} ,
$filename , evaluate_expression( $expression ,
$linenumber , $filename ,
1 ), $linenumber ,
$filename , 1 ),
$linenumber ) unless $omitting; $filename ,
$linenumber ) unless $omitting;
}
} , } ,
REQUIRE => sub() { REQUIRE => sub() {
fatal_error "?REQUIRE may only be used within action files" unless $actparams{0}; unless ( $omitting ) {
fatal_error "Unknown capability ($expression}" unless $capabilities{$expression}; fatal_error "?REQUIRE may only be used within action files" unless $actparams{0};
require_capability( $expression, "The $actparams{action} action", 's' ); fatal_error "Unknown capability ($expression)" unless exists $capabilities{$expression};
require_capability( $expression, "The $actparams{action} action", 's' );
}
} , } ,
); );