From 09b68dda33139ecadd5958e4a44acad9c1e1becc Mon Sep 17 00:00:00 2001 From: Nicolas Vigier Date: Wed, 5 Mar 2008 17:01:51 +0000 Subject: fix perl -cw errors --- proxy_wizard/Squid.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'proxy_wizard') diff --git a/proxy_wizard/Squid.pm b/proxy_wizard/Squid.pm index 4a8e0dd6..e0c0de7f 100755 --- a/proxy_wizard/Squid.pm +++ b/proxy_wizard/Squid.pm @@ -29,6 +29,7 @@ use services; use MDK::Wizard::Wizcommon; my $wiz = new MDK::Wizard::Wizcommon; +my $in = interactive->vnew; my $HOSTNAME = $wiz->{net}->network_get("HOSTNAME"); my $DOMAINNAME = chomp_(`dnsdomainname`); my $SHORTHOSTNAME = chomp_(`hostname -s`); -- cgit v1.2.1