From: rsiddall <rsiddall>
Date: Sat, 16 May 2009 19:27:44 +0000 (+0000)
Subject: Defer use of Net::OpenSRS so that failure to install the module doesn't stop
X-Git-Tag: root_of_svc_elec_features~1196
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=c196542418599a740405d37454b529d5c98276be

Defer use of Net::OpenSRS so that failure to install the module doesn't stop
Apache from starting.  (This causes attempts to register domains to fail
instead.)
---

diff --git a/FS/FS/part_export/domreg_opensrs.pm b/FS/FS/part_export/domreg_opensrs.pm
index 5d5c59530..df8b40006 100644
--- a/FS/FS/part_export/domreg_opensrs.pm
+++ b/FS/FS/part_export/domreg_opensrs.pm
@@ -7,7 +7,6 @@ use FS::Conf;
 use FS::part_export::null;
 use FS::svc_domain;
 use FS::part_pkg;
-use Net::OpenSRS;
 
 =head1 NAME
 
@@ -193,6 +192,9 @@ sub _export_insert {
 
   return if $svc_domain->action eq 'I';  # Ignoring registration, just doing DNS
 
+  eval "use Net::OpenSRS;";
+  return $@ if $@;
+
   # Get the TLD of the new domain
   my @bits = split /\./, $svc_domain->domain;