From 980dc41437dfb0366107fbee49cc514163a3999a Mon Sep 17 00:00:00 2001
From: Florin Grad <florin@mandriva.com>
Date: Wed, 18 Sep 2002 12:08:08 +0000
Subject: remove forgotten debug hash printings

---
 perl-install/network/shorewall.pm | 7 -------
 1 file changed, 7 deletions(-)

(limited to 'perl-install/network')

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;
 }
 
-- 
cgit v1.2.1