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/network | |
| parent | 40f21d013268820b7a91038abd87e6cf1b64ee01 (diff) | |
| download | drakx-backup-do-not-use-cbcbec48e838d6b5b44baf9a253b8a0f4c7cf93f.tar drakx-backup-do-not-use-cbcbec48e838d6b5b44baf9a253b8a0f4c7cf93f.tar.gz drakx-backup-do-not-use-cbcbec48e838d6b5b44baf9a253b8a0f4c7cf93f.tar.bz2 drakx-backup-do-not-use-cbcbec48e838d6b5b44baf9a253b8a0f4c7cf93f.tar.xz drakx-backup-do-not-use-cbcbec48e838d6b5b44baf9a253b8a0f4c7cf93f.zip | |
drop Storable and use Dumper (queen & pipi rulez)
Diffstat (limited to 'perl-install/network')
| -rw-r--r-- | perl-install/network/netconnect.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 14f5ba463..12b41a8f4 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -11,7 +11,6 @@ use mouse; use network::network; use network::tools; use MDK::Common::Globals "network", qw($in); -use Storable qw(store retrieve); sub detect { my ($auto_detect, $o_class) = @_; @@ -90,7 +89,8 @@ sub get_subwizard { my $ethntf = {}; my $db_path = "/usr/share/apps/kppp/Provider"; my (%countries, @isp, $country, $provider, $old_provider); - my $config = -f '/etc/sysconfig/drakconnect' ? Storable::retrieve('/etc/sysconfig/drakconnect') : {}; + my $config = {}; + eval(cat_('/etc/sysconfig/drakconnect')); my %wireless_mode = (N("Ad-hoc") => "Ad-hoc", N("Managed") => "Managed", @@ -1009,7 +1009,10 @@ You may also enter the IP address of the gateway if you have one."), { name => N("Configuration is complete, do you want to apply settings ?"), type => "yesorno", - post => sub { Storable::store($config, '/etc/sysconfig/drakconnect'); "network_on_boot" }, + post => sub { + require Data::Dumper; + output('/etc/sysconfig/drakconnect', Data::Dumper->Dump([$config], ['$config'])); + "network_on_boot" }, }, network_on_boot => |