summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakconnect
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakconnect')
-rwxr-xr-xperl-install/standalone/drakconnect12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index c7870c9a0..11d821bab 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -400,7 +400,7 @@ sub add_intf() {
}
sub del_intf() {
- my ($intf, $faillure);
+ my ($intf2delete, $faillure);
my $wiz =
{
defaultimage => "wiz_drakconnect.png",
@@ -409,13 +409,13 @@ sub del_intf() {
welcome => {
no_back => 1,
name => N("Select the network interface to remove:"),
- data => [ { label => N("Net Device"), val => \$intf, list => [ detect_devices::getNet() ], allow_empty_list => 1 } ],
+ data => [ { label => N("Net Device"), val => \$intf2delete, list => [ uniq(detect_devices::getNet(), keys %$intf) ], allow_empty_list => 1 } ],
post => sub {
!$::testing and eval {
modules::mergein_conf('/etc/modules.conf');
- modules::remove_alias($intf);
+ modules::remove_alias($intf2delete);
modules::write_conf();
- rm_rf("/etc/sysconfig/network-scripts/ifcfg-$intf");
+ rm_rf("/etc/sysconfig/network-scripts/ifcfg-$intf2delete");
};
$faillure = $@;
},
@@ -425,8 +425,8 @@ sub del_intf() {
name => sub {
($faillure ?
N("An error occured while deleting the \"%s\" network interface:\n\n%s",
- $intf, $faillure) :
- N("Congratulations, the \"%s\" network interface has been succesfully deleted", $intf)
+ $intf2delete, $faillure) :
+ N("Congratulations, the \"%s\" network interface has been succesfully deleted", $intf2delete)
)
},
},