This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Just sorting to guarantee order is not enough.
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 27 Nov 2001 00:45:55 +0000 (00:45 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 27 Nov 2001 00:45:55 +0000 (00:45 +0000)
(Think EBCDIC.)

p4raw-id: //depot/perl@13296

lib/ExtUtils/Manifest.t

index f98517e..f531406 100644 (file)
@@ -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' );
 # 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' );
 
 # poison the manifest, and add a comment that should be reported
 add_file( 'MANIFEST', 'none #none' );