summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-09-03 05:52:16 +0000
committerOlivier Blin <oblin@mandriva.org>2004-09-03 05:52:16 +0000
commitd08ae128c6ccefb284fd148064d1a77e4a83db63 (patch)
tree67a44f716a4eead8f5ae99741882c16a9d204d49 /perl-install
parent976496eca76abf6bb6e95c86ac65cacd76608a69 (diff)
downloaddrakx-d08ae128c6ccefb284fd148064d1a77e4a83db63.tar
drakx-d08ae128c6ccefb284fd148064d1a77e4a83db63.tar.gz
drakx-d08ae128c6ccefb284fd148064d1a77e4a83db63.tar.bz2
drakx-d08ae128c6ccefb284fd148064d1a77e4a83db63.tar.xz
drakx-d08ae128c6ccefb284fd148064d1a77e4a83db63.zip
(write_interface_conf) remove quotes if DEVICE is the result of a command
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/network.pm1
1 files changed, 1 insertions, 0 deletions
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");
}