From 32855754e2b45d7fa1c0ef1b08b2c1462b88f201 Mon Sep 17 00:00:00 2001
From: Victor Hu <whowutwut@gmail.com>
Date: Tue, 15 Mar 2016 14:02:11 -0400
Subject: [PATCH] In the latest version of libio-socket-ssl-perl shipped with
 Ubuntu 16.04, the SSL_VERIFY_PEER requires to be a constant instead of
 string. The error message printed out is

   SSL_verify_mode must be a number and not a string at /usr/share/perl5/IO/Socket/SSL.pm line 2166.

Need to use IO::Socket::SSL for the SSL_VERIFY_PEER to be set
---
 perl-xCAT/xCAT/Client.pm               | 1 +
 xCAT-server/lib/xcat/plugins/docker.pm | 3 +--
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-xCAT/xCAT/Client.pm b/perl-xCAT/xCAT/Client.pm
index bc3171fa5..c6966e978 100644
--- a/perl-xCAT/xCAT/Client.pm
+++ b/perl-xCAT/xCAT/Client.pm
@@ -14,6 +14,7 @@ if ($^O =~ /^aix/i) {
 }
 use IO::Handle;
 use MIME::Base64 qw(decode_base64);
+use IO::Socket::SSL;
 
 my $inet6support;
 if ($^O =~ /^aix/i) {  # disable AIX IPV6  TODO fix
diff --git a/xCAT-server/lib/xcat/plugins/docker.pm b/xCAT-server/lib/xcat/plugins/docker.pm
index 148f0c60d..00291f8a8 100755
--- a/xCAT-server/lib/xcat/plugins/docker.pm
+++ b/xCAT-server/lib/xcat/plugins/docker.pm
@@ -35,7 +35,6 @@ use xCAT::MsgUtils;
 use Cwd;
 use xCAT::Usage;
 use JSON;
-#use Data::Dumper;
 
 my $verbose;
 my $global_callback;
@@ -1003,7 +1002,7 @@ sub init_async {
     $async = HTTP::Async->new(
         slots => $args{slots},
         ssl_options => {
-            SSL_verify_mode => "SSL_VERIFY_PEER",
+            SSL_verify_mode => SSL_VERIFY_PEER,
             SSL_ca_file => $ssl_ca_file,
             SSL_cert_file => $ssl_cert_file,
             SSL_key_file => $key_file,