diff options
| author | damien <damien@mandriva.com> | 2004-04-07 20:41:09 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2004-04-07 20:41:09 +0000 |
| commit | 50fa3dfb78344f6b18f67a36d3816fa7a1811160 (patch) | |
| tree | 8678ac33e94ac6d26f0e7b9339d510eb4792556b /perl-install/standalone | |
| parent | 8c9b705052afa77db5bd3e3ad35a152bd0eca0ba (diff) | |
| download | drakx-backup-do-not-use-50fa3dfb78344f6b18f67a36d3816fa7a1811160.tar drakx-backup-do-not-use-50fa3dfb78344f6b18f67a36d3816fa7a1811160.tar.gz drakx-backup-do-not-use-50fa3dfb78344f6b18f67a36d3816fa7a1811160.tar.bz2 drakx-backup-do-not-use-50fa3dfb78344f6b18f67a36d3816fa7a1811160.tar.xz drakx-backup-do-not-use-50fa3dfb78344f6b18f67a36d3816fa7a1811160.zip | |
corrected drakups against new libconf 0.32
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakups | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups index bba576929..9f55af292 100755 --- a/perl-install/standalone/drakups +++ b/perl-install/standalone/drakups @@ -9,7 +9,7 @@ use detect_devices; use ugtk2 qw(:create :dialogs :helpers :wrappers); use interactive; use Libconf qw(:functions); -use Libconf::Glueconf::Ups; +use Libconf::Glueconf::NUT::Ups_conf; # config files: my %files = (devices => "/etc/ups/ups.conf", @@ -243,7 +243,7 @@ my @pages = ( remove => sub { }, }, load => sub { - $struct = Libconf::Glueconf::Ups->new($files{devices}); + $struct = Libconf::Glueconf::NUT::Ups_conf->new($files{devices}); map { [ $_, @{$struct->{$_}}{qw(driver port)} ] } keys %$struct; }, }, @@ -258,7 +258,7 @@ my @pages = ( remove => sub { }, }, load => sub { - $users = Libconf::Glueconf::Ups->new($files{users}); + $users = Libconf::Glueconf::NUT::Ups_conf->new($files{users}); map { [ $_ ] } keys %$users; }, }, |