From d08ae128c6ccefb284fd148064d1a77e4a83db63 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 3 Sep 2004 05:52:16 +0000 Subject: (write_interface_conf) remove quotes if DEVICE is the result of a command --- perl-install/network/network.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install/network') diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm index 4a761716a..0277dc1eb 100644 --- a/perl-install/network/network.pm +++ b/perl-install/network/network.pm @@ -166,6 +166,7 @@ sub write_interface_conf { if_($intf->{BOOTPROTO} eq "dhcp", qw(DHCP_HOSTNAME NEEDHOSTNAME)), if_($intf->{DEVICE} =~ /^ippp\d+$/, qw(DIAL_ON_IFUP)) ); + substInFile { s/^DEVICE='(`.*`)'/DEVICE=$1/g } $file; #- remove quotes if DEVICE is the result of a command log::explanations("written $intf->{DEVICE} interface configuration in $file"); } -- cgit v1.2.1