--- bleadperl/cygwin/perlld.in~ 2004-11-09 15:00:08.046250000 +0100
+++ bleadperl/cygwin/perlld.in  2004-11-09 14:59:53.249375000 +0100
@@ -46,7 +46,7 @@
     $path =~ s,[/\\](\.[/\\])*,/,g;
   }
   if ($dllname =~ /\./) { $libname =$`; } else { $libname =$dllname; };
-  my $v_e_r_s = '@VERSION@';
+  my $v_e_r_s = substr("@VERSION@",0,-2);
   $v_e_r_s =~ tr/./_/;
   if ( $dllname =~ /libperl.*/) { 
     $dllname ="cygperl$v_e_r_s.dll";
@@ -64,6 +64,7 @@
   $command .=" -Wl,--out-implib=$libname.dll$LIB_EXT" if $LIB_EXT;
   $command .=" -Wl,--export-all-symbols" if $EXPORT_ALL;
   $command .=" -Wl,--enable-auto-import -Wl,--stack,8388608"; # always
+  $command .=" -Wl,--enable-auto-image-base"; # always
 
   # other args are passed through
   shellexec("$command \\\n$args\n");

--- bleadperl/lib/ExtUtils/t/Embed.t~   2004-11-09 16:40:19.006625000 +0100
+++ bleadperl/lib/ExtUtils/t/Embed.t    2004-11-09 16:40:30.616000000 +0100
@@ -94,7 +94,7 @@
     }
    }
    elsif ($^O eq 'cygwin') { # Cygwin needs the shared libperl copied
-     my $v_e_r_s = $Config{version};
+     my $v_e_r_s = substr($Config{version},0,-2);
      $v_e_r_s =~ tr/./_/;
      system("cp ../cygperl$v_e_r_s.dll ./");    # for test 1
    }

--- perl-5.8.6/installperl.orig	2005-01-10 00:26:26.292860800 +0100
+++ perl-5.8.6/installperl	2005-01-10 00:26:09.959374400 +0100
@@ -260,7 +260,7 @@
 
     if ($Is_Cygwin) {
 	$perldll = $libperl;
-	my $v_e_r_s = $ver; $v_e_r_s =~ tr/./_/;
+	my $v_e_r_s = substr($ver,0,-2); $v_e_r_s =~ tr/./_/;
 	$perldll =~ s/(\..*)?$/$v_e_r_s.$dlext/;
 	$perldll =~ s/^lib/cyg/;
 	if ($Config{useshrplib} eq 'true') {