X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=FS%2FFS%2Fpart_export%2Fdomreg_net_dri.pm;h=bf0160243cdd39f75e6fb10d6073b3ca7f874974;hb=38e34bbc53a4222c7507e95914e1364a5a74623f;hp=885d6b6b03e8c7fc64036dc6930835c64d15e47a;hpb=1d3af1f921c52bc1cd1dde7a73b9a22f097bf606;p=freeside.git

diff --git a/FS/FS/part_export/domreg_net_dri.pm b/FS/FS/part_export/domreg_net_dri.pm
index 885d6b6b0..bf0160243 100644
--- 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