File::Spec::catfile() canonifies everything to blackslashes on

windows :-(

p4raw-id: //depot/perl@12183

diff --git a/lib/ExtUtils/Manifest.t b/lib/ExtUtils/Manifest.t
index 6b43d73..f62665e 100644 (file)
--- a/lib/ExtUtils/Manifest.t
+++ b/lib/ExtUtils/Manifest.t
@@ -105,6 +105,7 @@ is( join(' ', filecheck() ), 'bar', 'listing skipped with filecheck()' );
 # add a subdirectory and a file there that should be found
 ok( mkdir( 'moretest', 0777 ), 'created moretest directory' );
 my $quux = File::Spec->catfile( 'moretest', 'quux' );
+$quux =~ s#\\#/#g;
 add_file( $quux, 'quux' );
 ok( exists( ExtUtils::Manifest::manifind()->{$quux} ), "manifind found $quux" );