From cd73f00695cd1d118133669f09585c1b3d4322f6 Mon Sep 17 00:00:00 2001
From: Jeremy Davis <jeremyd@freeside.biz>
Date: Mon, 11 Jan 2016 07:55:48 -0500
Subject: [PATCH] Ticket #38938 Deal with invalid SSL certs on CDR import

---
 FS/FS/part_export/pbxware.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/FS/FS/part_export/pbxware.pm b/FS/FS/part_export/pbxware.pm
index cb75c9b5d..467b79f46 100644
--- a/FS/FS/part_export/pbxware.pm
+++ b/FS/FS/part_export/pbxware.pm
@@ -168,6 +168,10 @@ sub api_request {
   my $self = shift;
   my ($method, $content) = @_;
   $DEBUG ||= 1 if $self->option('debug');
+
+# kludge to curb excessive paranoia in LWP 6.0+
+local $ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;
+
   my $url = 'https://' . $self->machine;
   my $request = POST($url,
     [ %$content,
-- 
2.11.0