Re: ExtUtils-Depends 0.300 on Cygwin

["Yaakov (Cygwin Ports)" <yselkowitz users sourceforge net>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA256

Yaakov (Cygwin Ports) wrote:
| While that would theoretically work, EU:MM still doesn't like it.  I
| tried doing this with EU::D (patch attached, but don't laugh too hard, I
| never claimed to be a Perl hacker), but I got the following instead:

You're right, I could have done better than that.  This is a cleaner
patch, but the results are the same.  Now stop laughing! :-)


Yaakov
Cygwin Ports
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.5 (Cygwin)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org

iD8DBQFH8au5piWmPGlmQSMRCDoYAJ9TsDomabcRtMsBxCZqTREpoCpKWQCeKK1C
gOfYsCfHRNG0kfZgrFuIbLw=
=Dnu2
-----END PGP SIGNATURE-----

diff -urN -x CYGWIN-PATCHES -x 'aclocal.m4*' -x autom4te.cache -x config.cache -x config.log -x config.status 
-x config.h -x config.h.in -x ABOUT-NLS -x Makefile.in.in -x Makevars.template -x '*SlackBuild*' -x 
'*.egg-info' -x '*.class' -x '*.pyc' -x '*.mo' -x '*.gmo' -x '*.orig' -x '*.rej' -x '*.spec' -x '*.temp' -x 
'*~' -x '*.stackdump' -x COPYING -x INSTALL -x compile -x config-ml.in -x config.guess -x config.sub -x 
depcomp -x elisp-comp -x install-sh -x ltmain.sh -x mdate-sh -x missing -x mkinstalldirs -x py-compile -x 
symlink-tree -x texinfo.tex -x ylwrap -x config.rpath -x omf.make -x xmldocs.make -x gnome-doc-utils.make -x 
gnome-doc-utils.m4 -x intltool.m4 -x intltool-extract -x intltool-extract.in -x intltool-merge -x 
intltool-merge.in -x intltool-update -x intltool-update.in 
origsrc/ExtUtils-Depends-0.300/lib/ExtUtils/Depends.pm src/ExtUtils-Depends-0.300/lib/ExtUtils/Depends.pm
--- origsrc/ExtUtils-Depends-0.300/lib/ExtUtils/Depends.pm      2008-03-30 10:36:23.000000000 -0500
+++ src/ExtUtils-Depends-0.300/lib/ExtUtils/Depends.pm  2008-03-31 22:24:03.921875000 -0500
@@ -302,7 +302,7 @@
 
        my %mappers = (
                MSWin32 => sub { $_[0] . '.lib' },
-               cygwin  => sub { 'lib' . $_[0] . '.dll.a'},
+               cygwin  => sub { $_[0] . '.dll'},
        );
        my $mapper = $mappers{$^O};
        return () unless defined $mapper;
@@ -313,15 +313,17 @@
                my $lib = $mapper->($stem);
                my $pattern = qr/$lib$/;
 
+               my $matching_dir;
                my $matching_file;
                find (sub {
                        if ((not $matching_file) && /$pattern/) {;
+                               $matching_dir = $File::Find::dir;
                                $matching_file = $File::Find::name;
                        }
                }, map { -d $_ ? ($_) : () } @INC); # only extant dirs
 
                if ($matching_file && -f $matching_file) {
-                       push @found_libs, $matching_file;
+                       push @found_libs, ('-L' . $matching_dir, '-l' . $stem);
                        next;
                }
        }