From e2c3ed61a89a4e32cba7d37cd5bcda03834a0b19 Mon Sep 17 00:00:00 2001
From: Yves Rutschle <git1@rutschle.net>
Date: Tue, 12 Sep 2023 21:35:10 +0200
Subject: [PATCH] update to Conf::Libconfig 1.0.3 API

---
 t_load | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/t_load b/t_load
index 34019a3..62252d9 100755
--- a/t_load
+++ b/t_load
@@ -14,7 +14,7 @@
 use strict;
 use IO::Socket::INET6;
 use Data::Dumper;
-use Conf::Libconfig;
+use Conf::Libconfig 1.0.3;
 
 ## BEGIN TEST CONFIG
 
@@ -44,7 +44,7 @@ $conf->read_file("test.cfg");
 
 
 # Pick one address for TCP and one for UDP
-my @listen = @{$conf->fetch_array("listen")};
+my @listen = @{$conf->value("listen")};
 my ($sslh_tcp_address, $sslh_udp_address);
 
 foreach my $l (@listen) {
@@ -186,7 +186,7 @@ sub udp_client {
     }
 }
 
-foreach my $p (@{$conf->fetch_array("protocols")}) {
+foreach my $p (@{$conf->value("protocols")}) {
     if (!fork) {
         my $udp = $p->{is_udp} ? "--udp" : "";
         my $cmd = "./echosrv $udp -p $p->{host}:$p->{port} --prefix '$p->{name}: ' 2> /dev/null";
@@ -203,7 +203,7 @@ sleep 2; # Let echosrv's and sslh start
 my ($c_in, $c_out);
 pipe $c_in, $c_out;
 
-my @protocols = @{$conf->fetch_array("protocols")};
+my @protocols = @{$conf->value("protocols")};
 
 if (!fork) {
     # Process that starts all the clients