diff options
Diffstat (limited to 'dhcp_wizard/Dhcp.pm')
-rwxr-xr-x | dhcp_wizard/Dhcp.pm | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/dhcp_wizard/Dhcp.pm b/dhcp_wizard/Dhcp.pm index 23fd555f..526aac54 100755 --- a/dhcp_wizard/Dhcp.pm +++ b/dhcp_wizard/Dhcp.pm @@ -211,17 +211,16 @@ sub do_it { standalone::explanations("now patching etc/sysconfig/dhcpd"); if (!`grep INTERFACES $file`) { my $tmp = `/bin/mktemp /tmp/Dhcpconf.XXXXXX` or die "can't make a temp file: $!"; - open(my $NEW, "> $tmp") or die "can't open $tmp: $!"; - foreach (cat_or_die($file)) { - if (m|INTERFACE|) { - print $NEW "# $_"; - } - # FIXME: we probably lack a "else": - print $NEW $_; - } - MDK::Common::append_to_file($tmp, "\n# Added by drakwizard\nINTERFACES=$wiz_device"); - close($NEW); chomp($tmp); + output($tmp, + (map { + if (m|INTERFACE|) { + "# $_"; + } + # FIXME: we probably lack a "else": + $_; + } cat_or_die($file)), + "\n# Added by drakwizard\nINTERFACES=$wiz_device"); system("mv $tmp $file"); } $file = "/etc/dhcpd.conf"; |