From: Abe Timmerman <abe@ztreet.demon.nl>
Date: Fri, 18 Jan 2002 13:18:47 +0000 (+0100)
Subject: was: [ANNOUNCE] ExtUtils::MakeMaker 5.48_03
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c9d79356ea5b85cf52033c6e6daef740b57c8b78;p=p5sagit%2Fp5-mst-13.2.git

was: [ANNOUNCE] ExtUtils::MakeMaker 5.48_03
Message-ID: <4l4g4ustql73mlnm5n2jm68vcn4ctf85a1@4ax.com>

p4raw-id: //depot/perl@14326
---

diff --git a/lib/ExtUtils/t/MM_Win32.t b/lib/ExtUtils/t/MM_Win32.t
index 4dd697b..899fd18 100644
--- a/lib/ExtUtils/t/MM_Win32.t
+++ b/lib/ExtUtils/t/MM_Win32.t
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use strict;
 
 BEGIN {
     if( $ENV{PERL_CORE} ) {
@@ -125,19 +126,19 @@ SKIP: {
     # 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()' );
 
 }