adding export to read mailbox status information, RT#15987

[freeside.git] / FS / FS / part_export / domreg_net_dri.pm

diff --git a/FS/FS/part_export/domreg_net_dri.pm b/FS/FS/part_export/domreg_net_dri.pm
index 885d6b6..bf01602 100644 (file)
--- a/FS/FS/part_export/domreg_net_dri.pm
+++ b/FS/FS/part_export/domreg_net_dri.pm
@@ -355,7 +355,7 @@ sub get_dri {
 
 #  return $self->{dri} if $self->{dri}; #!!!TBD!!! connection caching.
 
-  eval "use Net::DRI;";
+  eval "use Net::DRI 0.95;";
   return $@ if $@;
 
 # $dri=Net::DRI->new(...) to create the global object. Save the result,
@@ -438,7 +438,7 @@ sub get_status {
   };
 #  rslt->{'message'} = $@->as_string if $@;
   if ($@) {
-    rslt->{'message'} = (UNIVERSAL::isa($@, 'Net::DRI::Exception')) ? $@->as_string : $@->message;
+    $rslt->{'message'} = (UNIVERSAL::isa($@, 'Net::DRI::Exception')) ? $@->as_string : $@->message;
   }
 
   return $rslt; # Success