summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/network/shorewall.pm7
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;
}