diff options
| -rw-r--r-- | perl-install/network/shorewall.pm | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/perl-install/network/shorewall.pm b/perl-install/network/shorewall.pm index a876ff379..c2ed5c313 100644 --- a/perl-install/network/shorewall.pm +++ b/perl-install/network/shorewall.pm @@ -72,12 +72,7 @@ sub read { if (my ($e) = get_config_file('masq')) { $conf{masquerade}{subnet} = $e->[1] if $e->[1]; } - require Data::Dumper; - print "before\n"; - print Data::Dumper->Dump([\%conf], ['%conf']); put_in_hash(\%conf, default_interfaces()); - print "after\n"; - print Data::Dumper->Dump([\%conf], ['%conf']); foreach (get_config_file('interfaces')) { my ($name, $interface) = @$_; if ($name eq 'masq') { @@ -85,8 +80,6 @@ sub read { $conf{loc_interface} = [ difference2($conf{loc_interface}, [$interface]) ]; } } - print "after masq\n"; - print Data::Dumper->Dump([\%conf], ['%conf']); $conf{net_interface} && \%conf; } |