diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/draknet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet index ad65b951b..da59dce32 100755 --- a/perl-install/standalone/draknet +++ b/perl-install/standalone/draknet @@ -223,7 +223,7 @@ foreach (0..$#all_cards) { if (-e "/sbin/ifconfig") { local $_=`LC_ALL=C LANG=C LANGUAGE=C LC_MESSAGES=C /sbin/ifconfig "eth$_"`; /inet addr\:$ip_regexp/; $ip = "$1.$2.$3.$4"; - } else { $intf->{"eth$_"}{IPADDR} } + } else { $ip=$intf->{"eth$_"}{IPADDR} } $clist1->append($_+1, "eth$_", $ip , $intf->{"eth$_"}{BOOTPROTO}, $all_cards[$_]->[1]); $clist1->set_selectable($_, 0); } @@ -342,7 +342,7 @@ sub update { if (-e "/sbin/ifconfig") { local $_=`LC_ALL=C LANG=C LANGUAGE=C LC_MESSAGES=C /sbin/ifconfig "eth$_"`; /inet addr\:$ip_regexp/; $ip = "$1.$2.$3.$4"; - } else { $intf->{"eth$_"}{IPADDR} } + } else { $ip=$intf->{"eth$_"}{IPADDR} } $clist1->append($_+1, "eth$_", $intf->{"eth$_"}{IPADDR}, $intf->{"eth$_"}{BOOTPROTO}, $all_cards[$_]->[1]); $clist1->set_selectable($_, 0); } |