From bfbbb8eb3d317c2b24b0b98849cb404fc2e4f310 Mon Sep 17 00:00:00 2001
From: hadaq <hadaq>
Date: Thu, 29 Mar 2012 23:13:30 +0000
Subject: [PATCH] update

---
 libtrbnet_perl/lib/HADES/TrbNet.pm   | 4 ++--
 libtrbnet_perl/test/test_readtime.pl | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/libtrbnet_perl/lib/HADES/TrbNet.pm b/libtrbnet_perl/lib/HADES/TrbNet.pm
index 51108cc..80592ba 100644
--- a/libtrbnet_perl/lib/HADES/TrbNet.pm
+++ b/libtrbnet_perl/lib/HADES/TrbNet.pm
@@ -66,8 +66,8 @@ sub trb_registertime_read {
   my $len_array = scalar @res;
   for (my $i = 0; ($i + 3) <= $len_array; $i += 3) {
     my $trb_address = $res[$i] & 0xffff;
-    $hash{$trb_address}->{'value'} = $res[$i + 1];
-    $hash{$trb_address}->{'time'} = $res[$i + 2];
+    $hash{$trb_address}->{'value'} = [$res[$i + 1]];
+    $hash{$trb_address}->{'time'} = [$res[$i + 2]];
   }
 
   return \%hash;
diff --git a/libtrbnet_perl/test/test_readtime.pl b/libtrbnet_perl/test/test_readtime.pl
index 016aef9..6f70f02 100755
--- a/libtrbnet_perl/test/test_readtime.pl
+++ b/libtrbnet_perl/test/test_readtime.pl
@@ -9,12 +9,12 @@ trb_init_ports() or die "Failed trb_init_ports: ", trb_strerror();
 
 my $ref;
 
-$ref = trb_registertime_read(0xffff, 0x0) or die "trb_registertime_read: ",
+$ref = trb_registertime_read(0x8001, 0x0) or die "trb_registertime_read: ",
   trb_strerror();
 
 print Dumper $ref;
 
-$ref = trb_registertime_read_mem(0x8001, 0x4031, 0, 5) or die "trb_registertime_read_mem: ",
+$ref = trb_registertime_read_mem(0x8001, 0x4031, 0, 3) or die "trb_registertime_read_mem: ",
   trb_strerror();
 
 print Dumper $ref;
-- 
2.43.0