From 7f0d56e47d3c6d230fe1a96aaa8066567bbfb4d8 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 23 Jan 2003 10:09:26 +0000 Subject: - force use strict - perl_checker fix --- perl-install/network/ethernet.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm index ca468125d..b0b15ff42 100644 --- a/perl-install/network/ethernet.pm +++ b/perl-install/network/ethernet.pm @@ -1,5 +1,6 @@ package network::ethernet; +use strict; use network::network; use modules; use modules::interactive; @@ -186,7 +187,6 @@ sub configureNetwork { if ($last->{BOOTPROTO} =~ /dhcp|bootp|zeroconf/) { $netc->{minus_one} = 1; $netc->{DHCP} = 1; - my $dhcp_hostname = $netc->{HOSTNAME}; $::isInstall and $in->set_help('configureNetworkHostDHCP'); $in->ask_from(N("Configuring network"), N("Please enter your host name if you know it. -- cgit v1.2.1