Op een mooie dag  (Fri, 18 Jan 2002 00:00:05 -0500), schreef Michael G Schwern
<[EMAIL PROTECTED]>:

> http://www.pobox.com/~schwern/src/ExtUtils-MakeMaker-5.48_03.tar.gz
> 
> 5.48_03 Thu Jan 17 23:44:38 EST 2002
>     * moved bin/inst to bin/instmodsh
>     * Some Win32 backporting fixes.  The -x switch doesn't seem to
>       work on Win32/5.6.1.
>     * Bug on Win32.  MAKEMAKER variable not set properly.
>     * _02 broke hints files.  Now fixed.
>     - Minor prereq error formatting glitch
>     - ExtUtils::testlib no longer a thin wrapper around blib, now a 
>       thin wrapper around lib like it was.  blib is noisy on 5.6.1.
>     - Nick and chromatic found and fixed some warnings in the tests
> 
> 5.6.1 on Win32 should be feeling better now.

if t/MM_Win32.t is fixed to compile ;)

--- t/MM_Win32.t.orig   Fri Jan 18 05:36:22 2002
+++ t/MM_Win32.t        Fri Jan 18 12:02:28 2002
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use strict;
 
 BEGIN {
     if( $ENV{PERL_CORE} ) {
@@ -125,19 +126,19 @@
     # Flesh out some necessary keys in the MM object.
     foreach my $key (qw(XS C O_FILES H HTMLLIBPODS HTMLSCRIPTPODS
                         MAN1PODS MAN3PODS PARENT_NAME)) {
-        $mm_w32{$key} = '';
+        $mm_w32->{$key} = '';
     }
     my $s_PM = join( " \\\n\t", sort keys %{$mm_w32->{PM}} );
     my $k_PM = join( " \\\n\t", %{$mm_w32->{PM}} );
 
     like( $mm_w32->constants(),
-          qr/^NAME\ =\ TestMM_Win32\s+VERSION\ =\ 1\.00.+
-             MAKEMAKER\ =\ $INC{'ExtUtils/MakeMaker.pm'}\s+
-             MM_VERSION\ =\ $ExtUtils::MakeMaker::VERSION.+
+         qr!^NAME\ =\ TestMM_Win32\s+VERSION\ =\ 1\.00.+
+             MAKEMAKER\ =\ \Q$INC{'ExtUtils/MakeMaker.pm'}\E\s+
+             MM_VERSION\ =\ \Q$ExtUtils::MakeMaker::VERSION\E.+
              VERSION_FROM\ =\ TestMM_Win32.+
              TO_INST_PM\ =\ \Q$s_PM\E\s+
              PM_TO_BLIB\ =\ \Q$k_PM\E
-          /xs, 'constants()' );
+         !xs, 'constants()' );
 
 }
 

-- 
Good luck, Abe
Amsterdam Perl Mongers http://amsterdam.pm.org
perl -e '$_=sub{split//,pop;print pop while@_};&$_("rekcah lreP rehtona tsuJ")'

Reply via email to