# 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,
};
# 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