From 50fa3dfb78344f6b18f67a36d3816fa7a1811160 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Wed, 7 Apr 2004 20:41:09 +0000
Subject: corrected drakups against new libconf 0.32

---
 perl-install/standalone/drakups | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

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;
                },
              },
-- 
cgit v1.2.1