diff options
| author | Abe Timmerman <abe@ztreet.demon.nl> | 2002-01-18 14:18:47 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-18 14:32:08 +0000 |
| commit | c9d79356ea5b85cf52033c6e6daef740b57c8b78 (patch) | |
| tree | d79d4ff84b96bb0ba7f1e22e5329142686936e15 /lib | |
| parent | 39234879f5d0d01795f6b444c84aeec3481bcd99 (diff) | |
| download | perl-c9d79356ea5b85cf52033c6e6daef740b57c8b78.tar.gz | |
was: [ANNOUNCE] ExtUtils::MakeMaker 5.48_03
Message-ID: <4l4g4ustql73mlnm5n2jm68vcn4ctf85a1@4ax.com>
p4raw-id: //depot/perl@14326
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/t/MM_Win32.t | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lib/ExtUtils/t/MM_Win32.t b/lib/ExtUtils/t/MM_Win32.t index 4dd697b1c9..899fd18003 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()' ); } |