Fix core Perl module Module::Pluggable such that it can find plugins that live
in symlinked directories.

Patch borrowed/adapted from Nixpkgs.

--- perl-5.16.1/cpan/Module-Pluggable/lib/Module/Pluggable/Object.pm	2015-04-08 23:28:48.120164135 -0500
+++ perl-5.16.1/cpan/Module-Pluggable/lib/Module/Pluggable/Object.pm	2015-04-08 23:30:27.032166704 -0500
@@ -164,7 +164,7 @@
         my $sp = catdir($dir, (split /::/, $searchpath));
 
         # if it doesn't exist or it's not a dir then skip it
-        next unless ( -e $sp && -d _ ); # Use the cached stat the second time
+        next unless ( -e $sp );
 
         my @files = $self->find_files($sp);
 
@@ -279,7 +279,7 @@
                              (my $path = $File::Find::name) =~ s#^\\./##;
                              push @files, $path;
                            }
-                      }, $search_path );
+                      }, "$search_path/." );
     }
     #chdir $cwd;
     return @files;
class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=a45d5a9478187d63c8ac314ce8ce96b2cfc5ee09'>refs</a><a class='active' href='/guix/log/tests/pack.scm'>log</a><a href='/guix/tree/tests/pack.scm?id=a45d5a9478187d63c8ac314ce8ce96b2cfc5ee09'>tree</a><a href='/guix/commit/tests/pack.scm?id=a45d5a9478187d63c8ac314ce8ce96b2cfc5ee09'>commit</a><a href='/guix/diff/tests/pack.scm?id=a45d5a9478187d63c8ac314ce8ce96b2cfc5ee09'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/tests/pack.scm'>
<input type='hidden' name='id' value='a45d5a9478187d63c8ac314ce8ce96b2cfc5ee09'/><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=a45d5a9478187d63c8ac314ce8ce96b2cfc5ee09'>root</a>/<a href='/guix/log/tests?id=a45d5a9478187d63c8ac314ce8ce96b2cfc5ee09'>tests</a>/<a href='/guix/log/tests/pack.scm?id=a45d5a9478187d63c8ac314ce8ce96b2cfc5ee09'>pack.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/pack.scm?id=a45d5a9478187d63c8ac314ce8ce96b2cfc5ee09&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-07-18 02:02:34 -0400'>2021-07-18</span></td><td><a href='/guix/commit/tests/pack.scm?id=aeded14b8342c1e72afd014a1bc121770f8c3a1c'>pack: Allow embedding custom control files in deb packs.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/pack.scm (self-contained-tarball/builder)
[extra-options]: New argument.
(self-contained-tarball, squashfs-image, docker-image)
(debian-archive): Likewise.  Remove two TODO comments.  Document
EXTRA-OPTIONS.  Use the custom control files when provided.
(%deb-format-options): New variable.
(show-deb-format-options, show-deb-format-options/detailed): New procedures.
(%options): Register new options.
(show-help): Augment with new usage.
(guix-pack): Validate and propagate new argument values.
* doc/guix.texi (Invoking guix pack)[deb]: Document how to list advanced
options.  Add an example.
* tests/pack.scm (deb archive...): Provide extra-options to the debian-archive
procedure, and validate that the provided files are embedded in the pack.
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-06-29 14:53:21 -0400'>2021-06-29</span></td><td><a href='/guix/commit/tests/pack.scm?id=82daab42811a2e3c7684ebdf12af75ff0fa67b99'>pack: Add support for the deb format.</a><span class='msg-avail'>...<span class='msg-tooltip'>* .dir-locals.el (scheme-mode)[gexp-&gt;derivation]: Define indentation rule.
* guix/scripts/pack.scm (debian-archive): New procedure.
(%formats): Register the new deb format.
(show-formats): Add it to the usage string.
* tests/pack.scm (%ar-bootstrap): New variable.
(deb archive with symlinks): New test.
* doc/guix.texi (Invoking guix pack): Document it.
* NEWS: Add news entry.
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-06-29 14:53:21 -0400'>2021-06-29</span></td><td><a href='/guix/commit/tests/pack.scm?id=8108c266dc2fbc70602b2aa5c6887bf17bed16e8'>tests: pack: Fix compressor extension.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/pack.scm (%gzip-compressor): Add the missing leading period to the
gzip compressor file extension.
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2020-07-20 23:25:09 +0200'>2020-07-20</span></td><td><a href='/guix/commit/tests/pack.scm?id=b3802495f607fd5e17c5acf0be2ee014036e2464'>pack: Build the store database under a UTF-8 locale.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/42389&gt;.
Reported by branjam4@gmail.com.

* guix/scripts/pack.scm (store-database)[build]: Add calls to 'setenv'
and 'setlocale'.
* tests/pack.scm ("self-contained-tarball + localstatedir, UTF-8 file
names"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-07-20 23:25:09 +0200'>2020-07-20</span></td><td><a href='/guix/commit/tests/pack.scm?id=181e0dddd68dc58190bd4831ea5d1ecbd420d83a'>pack: 'self-contained-tarball' runs derivation in a UTF-8local.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/pack.scm (self-contained-tarball)
[set-utf8-locale]: New variable.
[build]: Use it.
* tests/pack.scm ("self-contained-tarball"): Use a &lt;profile&gt; record
instead of 'profile-derivation'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-12-26 12:29:44 +0100'>2019-12-26</span></td><td><a href='/guix/commit/tests/pack.scm?id=3c45b53ec9025f4b95ec003ff99caa3e6fe506ab'>gnu: Remove squashfs-tools-next.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/compression.scm (squashfs-tools-next): Remove variable.
* guix/scripts/pack.scm (squashfs-image, guix-pack): Use squashfs-tools.
* tests/pack.scm: Use squashfs-tools.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2019-08-27 12:20:44 +0200'>2019-08-27</span></td><td><a href='/guix/commit/tests/pack.scm?id=7979a287f8eb84cbbfa44629951572408939a756'>pack: Create /tmp in Docker images.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/37161&gt;.

* guix/scripts/pack.scm (docker-image)[build]: Add a 'directory' entry
for "/tmp" to DIRECTIVES.
* tests/pack.scm ("docker-image + localstatedir"): Test the presence of /tmp.
* gnu/tests/docker.scm (run-docker-test)["Load docker image and run
it"]: Test the presence and permission bits of "/tmp".
</span></span></td><td>Ludovic Courtès</td></tr>