From 0e0fdb8a7768d187d900974da7360384493ce251 Mon Sep 17 00:00:00 2001
From: hadaq <hadaq>
Date: Wed, 8 Feb 2012 20:43:59 +0000
Subject: [PATCH] added check for empty list return value, and changed
 init_ports to trb_init_ports, mt

---
 libtrbnet_perl/TrbNet.xs           |  2 +-
 libtrbnet_perl/lib/HADES/TrbNet.pm | 12 ++++++++----
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/libtrbnet_perl/TrbNet.xs b/libtrbnet_perl/TrbNet.xs
index 0492445..2b1b08b 100644
--- a/libtrbnet_perl/TrbNet.xs
+++ b/libtrbnet_perl/TrbNet.xs
@@ -37,7 +37,7 @@ trb_strerror()
      RETVAL
 
 int
-init_ports()
+trb_init_ports()
      INIT:
 	int status;
      PPCODE:
diff --git a/libtrbnet_perl/lib/HADES/TrbNet.pm b/libtrbnet_perl/lib/HADES/TrbNet.pm
index 7a238da..68377fa 100644
--- a/libtrbnet_perl/lib/HADES/TrbNet.pm
+++ b/libtrbnet_perl/lib/HADES/TrbNet.pm
@@ -20,7 +20,7 @@ our %EXPORT_TAGS = ( 'all' => [ qw(
 	trb_errno
 	trb_error
 	trb_strerror
-	init_ports
+	trb_init_ports
 	trb_register_read
 	trb_register_read_c
 	trb_register_read_mem
@@ -32,9 +32,11 @@ our %EXPORT_TAGS = ( 'all' => [ qw(
 
 our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
 
-our @EXPORT = qw(
-trb_uid init_ports trb_err trb_errnum trb_hash	
-);
+our @EXPORT = ( @{ $EXPORT_TAGS{'all'} } );
+
+#qw(
+#trb_uid init_ports trb_err trb_errnum trb_hash	
+#);
 
 our $VERSION = '0.01';
 
@@ -46,6 +48,8 @@ XSLoader::load('HADES::TrbNet', $VERSION);
 sub trb_register_read {
     my ($trb_address, $register_address) = @_;
     my @a = trb_register_read_c($trb_address, $register_address);
+    #print Dumper \@a;
+    return if (! defined $a[0]);
     my %h;
     %h = @a;
     return \%h;
-- 
2.43.0