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';
ests/hexpm.scm?id=9d4cd681daaa8c368858f8f718773a71494743dd'>commit</a><a href='/guix/diff/tests/hexpm.scm?id=9d4cd681daaa8c368858f8f718773a71494743dd'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/tests/hexpm.scm'>
<input type='hidden' name='id' value='9d4cd681daaa8c368858f8f718773a71494743dd'/><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=9d4cd681daaa8c368858f8f718773a71494743dd'>root</a>/<a href='/guix/log/tests?id=9d4cd681daaa8c368858f8f718773a71494743dd'>tests</a>/<a href='/guix/log/tests/hexpm.scm?id=9d4cd681daaa8c368858f8f718773a71494743dd'>hexpm.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/tests/hexpm.scm?id=9d4cd681daaa8c368858f8f718773a71494743dd&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-05-31 23:50:06 +0200'>2023-05-31</span></td><td><a href='/guix/commit/tests/hexpm.scm?id=654fcf9971bb01389d577be07c6ec0f68940c743'>tests: Use quasiquoted 'match' patterns for package sexps.</a><span class='msg-avail'>...<span class='msg-tooltip'>Turns out it's easier to read.

* tests/cpan.scm ("cpan-&gt;guix-package"): Use a quasiquoted pattern.
* tests/elpa.scm (eval-test-with-elpa): Likewise.
* tests/gem.scm ("gem-&gt;guix-package")
("gem-&gt;guix-package with a specific version")
("gem-recursive-import")
("gem-recursive-import with a specific version"): Likewise.
* tests/hexpm.scm ("hexpm-recursive-import"): Likewise.
* tests/opam.scm ("opam-&gt;guix-package"): Likewise.
* tests/pypi.scm ("pypi-&gt;guix-package, no wheel")
("pypi-&gt;guix-package, wheels")
("pypi-&gt;guix-package, no usable requirement file.")
("pypi-&gt;guix-package, package name contains \"-\" followed by digits"):
Likewise.
* tests/texlive.scm ("texlive-&gt;guix-package"): Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-06-15 10:18:34 +0200'>2022-06-15</span></td><td><a href='/guix/commit/tests/hexpm.scm?id=0d9f1f15cb0ce1e71943bff9a68e6839d0eae497'>import: Add hex.pm importer.</a><span class='msg-avail'>...<span class='msg-tooltip'>hex.pm is a package repository for Erlang and Elixir.

* guix/scripts/import.scm (importers): Add "hexpm".
* guix/scripts/import/hexpm.scm, guix/import/hexpm.scm,
  guix/hexpm-download.scm: New files.
* guix/import/utils.scm (source-spec-&gt;object): Add "hexpm-fetch" to list of
  fetch methods.
* guix/upstream.scm (package-update/hexpm-fetch): New function.
  (%method-updates) Add it.
* Makefile.am: Add them.
</span></span></td><td>Hartmut Goebel</td></tr>