From: Jarkko Hietaniemi Date: Tue, 23 Sep 2003 04:43:29 +0000 (+0000) Subject: Stray CRs noticed by Jan Dubois. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fdabeebc3413e04ccb1a18bb0b9945494795b944;p=p5sagit%2Fp5-mst-13.2.git Stray CRs noticed by Jan Dubois. p4raw-id: //depot/perl@21325 --- diff --git a/lib/ExtUtils/MM_Win95.pm b/lib/ExtUtils/MM_Win95.pm index e6e5623..549e1d7 100644 --- a/lib/ExtUtils/MM_Win95.pm +++ b/lib/ExtUtils/MM_Win95.pm @@ -6,7 +6,7 @@ $VERSION = 0.03; require ExtUtils::MM_Win32; @ISA = qw(ExtUtils::MM_Win32); -use Config; +use Config; my $DMAKE = 1 if $Config{'make'} =~ /^dmake/i; my $NMAKE = 1 if $Config{'make'} =~ /^nmake/i; diff --git a/lib/ExtUtils/t/MM_Win32.t b/lib/ExtUtils/t/MM_Win32.t index 1431aba..e980b1a 100644 --- a/lib/ExtUtils/t/MM_Win32.t +++ b/lib/ExtUtils/t/MM_Win32.t @@ -84,7 +84,7 @@ delete $ENV{PATHEXT} unless $had_pathext; { my $my_perl = $1 if $^X =~ /(.*)/; # are we in -T or -t? my( $perl, $path ) = fileparse( $my_perl ); - like( $MM->find_perl( $], [ $perl ], [ $path ], 0 ), + like( $MM->find_perl( $], [ $perl ], [ $path ], 0 ), qr/^\Q$my_perl\E$/i, 'find_perl() finds this perl' ); }