diff --git a/New/Shorewall/Config.pm b/New/Shorewall/Config.pm index bc3c3a5e1..2defa74d3 100644 --- a/New/Shorewall/Config.pm +++ b/New/Shorewall/Config.pm @@ -263,6 +263,7 @@ sub get_configuration() { chomp $line; next if $line =~ /^\s*#/; next if $line =~ /^\s*$/; + $line = $1 . ( $ENV{$2} || '' ) . $3 while $line =~ /^(.*?)\$([a-zA-Z]\w*)(.*)$/; if ( $line =~ /^([a-zA-Z]\w*)\s*=\s*(.*)$/ ) { my ($var, $val) = ($1, $2);