From 37d2a12be69c57b02050b6a78169215ce6b544c1 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 24 Feb 2005 16:59:12 +0000
Subject: adapt to new Libconf API

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

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups
index 6995377c5..26126bc85 100755
--- a/perl-install/standalone/drakups
+++ b/perl-install/standalone/drakups
@@ -38,7 +38,7 @@ sub writeconf() {
 }
 
 sub read_nut_config() {
-    $struct = Libconf::Glueconf::NUT::Ups_conf->new($files{devices})
+    $struct = Libconf::Glueconf::NUT::Ups_conf->new({ filename => $files{devices} })
 }
 
 sub readDriversList() {
@@ -273,7 +273,7 @@ my @pages = (
                              remove => sub {},
                             },
                load => sub {
-                   $users = Libconf::Glueconf::NUT::Ups_conf->new($files{users});
+                   $users = Libconf::Glueconf::NUT::Ups_conf->new({ filename => $files{users} });
                    map { [ $_ ] } keys %$users;
                },
                id => "users",
-- 
cgit v1.2.1