From 47cf73f9fc9c0f556c0bd3a6e27115bf41ce6a05 Mon Sep 17 00:00:00 2001
From: hadaq <hadaq>
Date: Wed, 8 Feb 2012 21:02:03 +0000
Subject: [PATCH] changed perldoc, mt

---
 libtrbnet_perl/lib/HADES/TrbNet.pm | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/libtrbnet_perl/lib/HADES/TrbNet.pm b/libtrbnet_perl/lib/HADES/TrbNet.pm
index 68377fa..34b2bc6 100644
--- a/libtrbnet_perl/lib/HADES/TrbNet.pm
+++ b/libtrbnet_perl/lib/HADES/TrbNet.pm
@@ -64,7 +64,7 @@ sub trb_read_uid {
 	my $uid = ($res[$k] << 32) | $res[$k + 1];
 	my $endP = $res[$k + 2];
 	my $sender =  $res[$k + 3];
-	
+
 	$rh->{$uid}->{'trb_address'} = $sender;
 	$rh->{$uid}->{'trb_endpoint'} = $endP;
     }
@@ -86,23 +86,25 @@ HADES::TrbNet - Perl extension for the libtrbnet library, also via RPC calls
  #!/usr/bin/perl
  use warnings; 
  use strict;
- use HADES::TrbNet qw(trb_rr trb_wr init_ports trb_strerror);
+ use HADES::TrbNet;
 
- my $connect_status = &init_ports();
- my @res; my $res;
+ my $connect_status = &trb_init_ports();
+ my @res; my $res; my $rh_res;
  # read from TrbNet
- $res = trb_rr(0x3,0xa0e3);
- if(!defined $res) {
+ $rh_res = trb_register_read(0x3,0xa0e3);
+ if(!defined $rh_res) {
     $res = trb_strerror();
     print "error output: $res\n";
     exit();
  }
  else {
-    printf("0x%08x\n", $res);
+    printf("0x%08x\n", $rh_res->{0x3});
  }
 
+
+
  # write to TrbNet
- $res = trb_wr(0x03, 0xa0e3, 0x12);
+ $res = trb_register_write(0x03, 0xa0e3, 0x12);
  if(!defined $res) {
     $res = trb_strerror();
     print "error output: $res\n";
-- 
2.43.0