{{{
271c271
<     foreach (Text::ParseWords::quotewords('\s+', 0, $potential_libs)){
---
>     foreach (Text::ParseWords::quotewords('\s+', 0, $potential_libs)) {
308,315c308,312
< 	# handle possible library arguments
< 	if (s/^-l// and $GC and !/^lib/i) {
< 	    $_ = "lib$_";
< 	}
< 	$_ .= $libext if !/\Q$libext\E$/i;
< 
< 	my $secondpass = 0;
<     LOOKAGAIN:
---
>         # try , $_.dll$libext, lib$_.dll$libext, $_$libext, lib$_$libext
>         # the order is important since we want to use .dll.a before .a
>         s/^-l//;
>         my $found_lib = 0;
>         for my $libname ('lib'.$_.'.dll'.$libext, $_.'.dll'.$libext, 'lib'.$_.$libext, $_.$libext) {
318,319c315,316
< 	if (-f) {
< 	    warn "'$thislib' found as '$_'\n" if $verbose;
---
> 	    if (-f $libname) {
> 	        warn "'$thislib' found as '$libname'\n" if $verbose;
321,322c318,320
< 	    push(@extralibs, $_);
< 	    next;
---
> 	        $found_lib++;
> 	        push(@extralibs, $libname);
> 	        last;
325,327c323,324
< 	my $found_lib = 0;
< 	foreach my $thispth (@searchpath, @libpath){
< 	    unless (-f ($fullname="$thispth\\$_")) {
---
> 	    foreach my $thispth (reverse @searchpath, @libpath) {
> 	        unless (-f ($fullname="$thispth\\$libname")) {
339,347c336
< 	# do another pass with (or without) leading 'lib' if they used -l
< 	if (!$found_lib and $thislib =~ /^-l/ and !$secondpass++) {
< 	    if ($GC) {
< 		goto LOOKAGAIN if s/^lib//i;
< 	    }
< 	    elsif (!/^lib/i) {
< 		$_ = "lib$_";
< 		goto LOOKAGAIN;
< 	    }
---
>             last if $found_lib;
350c339
< 	# give up
---
> 	# express frustration
}}}