diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-09 16:48:34 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-09 16:48:34 +0000 |
| commit | d5739412f20b3a29d79b40fce1984e597c03a18a (patch) | |
| tree | 60431c85cd11845d3373f6e5c5571d02fa40afd6 /perl-install | |
| parent | a642542a916a17214e3b2f5748ac28a1bfe78e90 (diff) | |
| download | drakx-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.pm | 4 |
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'; |