diff options
| author | Florin Grad <florin@mandriva.com> | 2002-09-18 12:08:08 +0000 |
|---|---|---|
| committer | Florin Grad <florin@mandriva.com> | 2002-09-18 12:08:08 +0000 |
| commit | 980dc41437dfb0366107fbee49cc514163a3999a (patch) | |
| tree | 01b2931e7c3f6f35de6c92ba6e35a2d09dbd02cb | |
| parent | 78e7e4ad786cad269b163aeb5dbf775a3cff6418 (diff) | |
| download | drakx-980dc41437dfb0366107fbee49cc514163a3999a.tar drakx-980dc41437dfb0366107fbee49cc514163a3999a.tar.gz drakx-980dc41437dfb0366107fbee49cc514163a3999a.tar.bz2 drakx-980dc41437dfb0366107fbee49cc514163a3999a.tar.xz drakx-980dc41437dfb0366107fbee49cc514163a3999a.zip | |
remove forgotten debug hash printings
| -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; } |