From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 27 Nov 2001 00:45:55 +0000 (+0000)
Subject: Just sorting to guarantee order is not enough.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6bcc4512882cbfb9a802c28116e3f7a01455c5f8;p=p5sagit%2Fp5-mst-13.2.git

Just sorting to guarantee order is not enough.
(Think EBCDIC.)

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

diff --git a/lib/ExtUtils/Manifest.t b/lib/ExtUtils/Manifest.t
index f98517e..f531406 100644
--- a/lib/ExtUtils/Manifest.t
+++ b/lib/ExtUtils/Manifest.t
@@ -113,7 +113,7 @@ ok( exists( ExtUtils::Manifest::manifind()->{$quux} ), "manifind found $quux" );
 # only MANIFEST and foo are in the manifest
 my $files = maniread();
 is( keys %$files, 2, 'two files found' );
-is( join(' ', sort keys %$files), 'MANIFEST foo', 'both files found' );
+is( join(' ', sort { lc($a) cmp lc($b) } keys %$files), 'foo MANIFEST', 'both files found' );
 
 # poison the manifest, and add a comment that should be reported
 add_file( 'MANIFEST', 'none #none' );