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 --- sshd_wizard/Sshd.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'sshd_wizard') diff --git a/sshd_wizard/Sshd.pm b/sshd_wizard/Sshd.pm index 58657a91..4a4b3f0d 100755 --- a/sshd_wizard/Sshd.pm +++ b/sshd_wizard/Sshd.pm @@ -30,6 +30,7 @@ use Libconf::Glueconf::Networking::Sshd_config; my $wiz = new MDK::Wizard::Wizcommon; +my $in = interactive->vnew; my $conf = "/etc/ssh/sshd_config"; my $DOMAINNAME = chomp_(`dnsdomainname`); my $SHORTHOSTNAME = chomp_(`hostname -s`); -- cgit v1.2.1