summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakconnect
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2004-02-04 15:05:04 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2004-02-04 15:05:04 +0000
commitcbcbec48e838d6b5b44baf9a253b8a0f4c7cf93f (patch)
treef12e8b9ed1a2ed3de3445bac5c952081c7a179b7 /perl-install/standalone/drakconnect
parent40f21d013268820b7a91038abd87e6cf1b64ee01 (diff)
downloaddrakx-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/drakconnect')
-rwxr-xr-xperl-install/standalone/drakconnect4
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();