From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 24 Sep 2001 18:13:23 +0000 (+0000)
Subject: File::Spec::catfile() canonifies everything to blackslashes on
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8dee7ff3b0b416ad535e5bc8f59cec989fa51764;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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" );