Work around a problem arising from the update to OpenSSL 1.0.2f, based on the
following upstream commit:

  https://github.com/noxxi/p5-io-socket-ssl/commit/6e23ee4a433f83f1065bd2467255eba5ee9b1ddd

Attempting to update to IO-Socket-SSL-2.023, which includes this commit,
caused other test failures.  See:

  https://lists.gnu.org/archive/html/guix-devel/2016-01/msg01032.html

Description from the upstream commit:

  OpenSSL 1.0.2f changed the behavior of SSL shutdown in case the TLS connection
  was not fully established (commit: f73c737c7ac908c5d6407c419769123392a3b0a9).
  This somehow resulted in Net::SSLeay::shutdown returning 0 (i.e. keep trying)
  which caused an endless loop. It will now ignore this result in case the TLS
  connection was not yet established and consider the TLS connection closed
  instead.

--- IO-Socket-SSL-2.002/lib/IO/Socket/SSL.pm.orig	2014-10-21 16:51:16.000000000 -0400
+++ IO-Socket-SSL-2.002/lib/IO/Socket/SSL.pm	2016-01-31 15:07:14.971099894 -0500
@@ -1213,6 +1213,11 @@
 		    # shutdown complete
 		    last;
 		}
+		if ((${*$self}{'_SSL_opened'}||0) <= 0) {
+		    # not really open, thus don't expect shutdown to return
+		    # something meaningful
+		    last;
+		}
 
 		# initiate or complete shutdown
 		local $SIG{PIPE} = 'IGNORE';
ba5ae03bd8a2ae82ef0a043'>tree</a><a href='/guix/commit/gnu/build/cross-toolchain.scm?id=fce9f13b5417b63a6ba5ae03bd8a2ae82ef0a043'>commit</a><a href='/guix/diff/gnu/build/cross-toolchain.scm?id=fce9f13b5417b63a6ba5ae03bd8a2ae82ef0a043'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/build/cross-toolchain.scm'>
<input type='hidden' name='id' value='fce9f13b5417b63a6ba5ae03bd8a2ae82ef0a043'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=fce9f13b5417b63a6ba5ae03bd8a2ae82ef0a043'>root</a>/<a href='/guix/log/gnu?id=fce9f13b5417b63a6ba5ae03bd8a2ae82ef0a043'>gnu</a>/<a href='/guix/log/gnu/build?id=fce9f13b5417b63a6ba5ae03bd8a2ae82ef0a043'>build</a>/<a href='/guix/log/gnu/build/cross-toolchain.scm?id=fce9f13b5417b63a6ba5ae03bd8a2ae82ef0a043'>cross-toolchain.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/build/cross-toolchain.scm?id=fce9f13b5417b63a6ba5ae03bd8a2ae82ef0a043&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>