--- lib/ExtUtils/MM_Unix.pm.orig	2003-07-30 16:52:54.000000000 +0200
+++ lib/ExtUtils/MM_Unix.pm	2003-08-02 15:12:05.000000000 +0200
@@ -2601,8 +2601,22 @@
 EXE_FILES = @{$self->{EXE_FILES}}
 
-} . ($Is_Win32
-  ? q{FIXIN = pl2bat.bat
-} : q{FIXIN = $(PERLRUN) "-MExtUtils::MY" -e "MY->fixin(shift)"
-}).qq{
+});
+
+    if ($Is_Win32) {
+	if ($self->{PERL_CORE}) {
+	    push(@m, q{FIXIN = $(PERL) ../../win32/bin/pl2bat.pl
+});
+	}
+	else {
+	    push(@m, q{FIXIN = pl2bat.bat
+});
+	}
+    }
+    else {
+	push(@m, q{FIXIN = $(PERLRUN) "-MExtUtils::MY" -e "MY->fixin(shift)"
+});
+    }
+
+    push(@m, qq{
 pure_all :: @to
 	\$(NOECHO) \$(NOOP)