update

diff --git a/libtrbnet_perl/lib/HADES/TrbNet.pm b/libtrbnet_perl/lib/HADES/TrbNet.pm
index 51108cc7ef73e05306ecc321a13b6e40f969d085..80592ba66b55144398f6e3b4fc41a2a4c33c069e 100644 (file)
--- 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 016aef96ece84eea54913c636d55ad61da547098..6f70f02790d19af2f0f72a93edd612b756b7d33c 100755 (executable)
--- 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;