From 65cfc6766d8b9cc92148aeab9b9238021b53944b Mon Sep 17 00:00:00 2001 From: Arnaud Desmons Date: Fri, 26 Jul 2002 15:15:32 +0000 Subject: added a return value and fixed a bug --- dhcp_wizard/scripts/Dhcpconf.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'dhcp_wizard') diff --git a/dhcp_wizard/scripts/Dhcpconf.pm b/dhcp_wizard/scripts/Dhcpconf.pm index 7d5cb290..3a3a3e8d 100644 --- a/dhcp_wizard/scripts/Dhcpconf.pm +++ b/dhcp_wizard/scripts/Dhcpconf.pm @@ -38,7 +38,7 @@ sub do_it { MDK::Common::cp_af($file, $file.".orig"); open(NEW, "> $file") or die "can not open $file: $!"; print NEW "INTERFACES=$wiz_device\n"; - close($file) or die "can not close $file: $!"; + close(NEW) or die "can not close $file: $!"; $file = "/etc/rc.d/init.d/dhcpd"; # now patching etc/rc.d/init.d/dhcpd if (!`grep INTERFACES $file`){ @@ -91,5 +91,7 @@ sub do_it { $mdk{interfaces} = $wiz_device; } system("/etc/rc.d/init.d/dhcpd restart"); + 10; } +1; -- cgit v1.2.1