Fix origin in interfaces and hosts

Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2016-01-23 13:49:52 -08:00
parent 247698a14d
commit 3fe4619f66

View File

@ -894,7 +894,7 @@ sub add_group_to_zone($$$$$$)
hosts => \@newnetworks,
ipsec => $type & IPSEC ? 'ipsec' : 'none' ,
exclusions => \@exclusions ,
origin => shortlineinfo( '' ) ,
origin => shortlineinfo1( '' ) ,
};
if ( $type != IPSEC ) {
@ -1397,9 +1397,8 @@ sub process_interface( $$ ) {
physical => $physical ,
base => var_base( $physical ),
zones => {},
origin => shortlineinfo(''),
origin => shortlineinfo1(''),
wildcard => $wildcard,
origin => shortlineinfo( '' ),
};
if ( $zone ) {