diff options
| author | Damien Chaumette <dchaumette@mandriva.com> | 2004-02-04 15:05:04 +0000 |
|---|---|---|
| committer | Damien Chaumette <dchaumette@mandriva.com> | 2004-02-04 15:05:04 +0000 |
| commit | cbcbec48e838d6b5b44baf9a253b8a0f4c7cf93f (patch) | |
| tree | f12e8b9ed1a2ed3de3445bac5c952081c7a179b7 /perl-install/standalone | |
| parent | 40f21d013268820b7a91038abd87e6cf1b64ee01 (diff) | |
| download | drakx-cbcbec48e838d6b5b44baf9a253b8a0f4c7cf93f.tar drakx-cbcbec48e838d6b5b44baf9a253b8a0f4c7cf93f.tar.gz drakx-cbcbec48e838d6b5b44baf9a253b8a0f4c7cf93f.tar.bz2 drakx-cbcbec48e838d6b5b44baf9a253b8a0f4c7cf93f.tar.xz drakx-cbcbec48e838d6b5b44baf9a253b8a0f4c7cf93f.zip | |
drop Storable and use Dumper (queen & pipi rulez)
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakconnect | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index 0aa4bb9b1..2551b0240 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -40,7 +40,6 @@ use network::isdn; use network::adsl; use MDK::Common::Globals "network", qw($in); use POSIX ":sys_wait_h"; -use Storable qw(store retrieve); my ($netcnx, $netc, $intf) = ({}, {}, {}); #my @conx_type = ('modem', 'isdn_internal', 'isdn_external', 'adsl', 'cable', 'lan'); @@ -194,7 +193,8 @@ sub manage { $notebook->set_property('show-border', 0); my $apply_button; - my $config = -f '/etc/sysconfig/drakconnect' ? Storable::retrieve('/etc/sysconfig/drakconnect') : {}; + my $config = {}; + eval(cat_('/etc/sysconfig/drakconnect')); #- duplicated from network::ethernet, to be factorized @all_cards = network::ethernet::get_eth_cards(); |