Signed-off-by: Matt Darfeuille <matd...@gmail.com>
---
Shorewall/Perl/Shorewall/Rules.pm | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/Shorewall/Perl/Shorewall/Rules.pm
b/Shorewall/Perl/Shorewall/Rules.pm
index 682887659..35d093f01 100644
--- a/Shorewall/Perl/Shorewall/Rules.pm
+++ b/Shorewall/Perl/Shorewall/Rules.pm
@@ -3726,9 +3726,9 @@ sub build_zone_list( $$$\$\$ ) {
} elsif ( ( $input eq 'all+-' ) || ( $input eq 'all-+' ) ) {
unless ( $excludefw++ ) {
if ( $any ) {
- warning message "$original_input is deprecated in favor
of 'any+!\$FW'";
+ warning_message "$original_input is deprecated in favor
of 'any+!\$FW'";
} else {
- warning message "$original_input is deprecated in favor
of 'all+!\$FW'";
+ warning_message "$original_input is deprecated in favor
of 'all+!\$FW'";
}
}
@@ -3737,9 +3737,9 @@ sub build_zone_list( $$$\$\$ ) {
} elsif ( $input eq 'all-' ) {
unless ( $excludefw++ ) {
if ( $any ) {
- warning message "any- is deprecated in favor of
'any!\$FW'";
+ warning_message "any- is deprecated in favor of
'any!\$FW'";
} else {
- warning message "all- is deprecated in favor of
'all!\$FW'" unless $excludefw++;
+ warning_message "all- is deprecated in favor of
'all!\$FW'" unless $excludefw++;
}
}
--
2.11.0
_______________________________________________
Shorewall-devel mailing list
Shorewall-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/shorewall-devel
