summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFlorin Grad <florin@mandriva.com>2002-09-18 12:08:08 +0000
committerFlorin Grad <florin@mandriva.com>2002-09-18 12:08:08 +0000
commit980dc41437dfb0366107fbee49cc514163a3999a (patch)
tree01b2931e7c3f6f35de6c92ba6e35a2d09dbd02cb /perl-install
parent78e7e4ad786cad269b163aeb5dbf775a3cff6418 (diff)
downloaddrakx-backup-do-not-use-980dc41437dfb0366107fbee49cc514163a3999a.tar
drakx-backup-do-not-use-980dc41437dfb0366107fbee49cc514163a3999a.tar.gz
drakx-backup-do-not-use-980dc41437dfb0366107fbee49cc514163a3999a.tar.bz2
drakx-backup-do-not-use-980dc41437dfb0366107fbee49cc514163a3999a.tar.xz
drakx-backup-do-not-use-980dc41437dfb0366107fbee49cc514163a3999a.zip
remove forgotten debug hash printings
Diffstat (limited to 'perl-install')
-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;
}