summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-03-09 16:48:34 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-03-09 16:48:34 +0000
commitd5739412f20b3a29d79b40fce1984e597c03a18a (patch)
tree60431c85cd11845d3373f6e5c5571d02fa40afd6 /perl-install
parenta642542a916a17214e3b2f5748ac28a1bfe78e90 (diff)
downloaddrakx-d5739412f20b3a29d79b40fce1984e597c03a18a.tar
drakx-d5739412f20b3a29d79b40fce1984e597c03a18a.tar.gz
drakx-d5739412f20b3a29d79b40fce1984e597c03a18a.tar.bz2
drakx-d5739412f20b3a29d79b40fce1984e597c03a18a.tar.xz
drakx-d5739412f20b3a29d79b40fce1984e597c03a18a.zip
fix isdn config step by using runtime references
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/netconnect.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index e5ffcfbb7..a87575599 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -253,7 +253,8 @@ sub real_main {
{
name => N("Connection Configuration") . "\n\n" .
N("Please fill or check the field below"),
- data => [
+ data => {
+ [
(map {
my ($dstruct, $field, $item) = @$_;
$item->{val} = \$dstruct->{$field};
@@ -277,6 +278,7 @@ sub real_main {
{ label => N("Account Password"), val => \$netcnx->{passwd}, hidden => 1 },
)
],
+ },
post => sub {
isdn_write_config($isdn, $netc); # or return 'isdn_protocol';
$netc->{$_} = 'ippp0' foreach 'NET_DEVICE', 'NET_INTERFACE';