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 0492445c21c04874cee53a9faeee4916a9eb4b53..2b1b08b28a917cd9fd630a3a54bd7154fd20f5af 100644 (file)
--- 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 7a238da429e17f8e5e66fcba237943a00a8ab488..68377fa16993e4beb0c223ac53cb2112a0341df1 100644 (file)
--- 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;