From: hadaq <hadaq>
Date: Wed, 8 Feb 2012 20:43:59 +0000 (+0000)
Subject: added check for empty list return value, and changed init_ports to trb_init_ports, mt
X-Git-Tag: v6.0~70
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=0e0fdb8a7768d187d900974da7360384493ce251;p=trbnettools.git

added check for empty list return value, and changed init_ports to trb_init_ports, mt
---

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;