Rather than trust that readdir() will sort the tests right, this will
do it explicitly.
--- t/TEST 2001/05/30 09:03:47 1.1
+++ t/TEST 2001/05/30 09:04:07
@@ -54,7 +54,7 @@
sub _find_tests {
my($dir) = @_;
opendir DIR, $dir || die "Trouble opening $dir: $!";
- foreach my $f (readdir DIR) {
+ foreach my $f (sort { $a cmp $b } readdir DIR) {
next if $f eq $curdir or $f eq $updir;
my $fullpath = File::Spec->catdir($dir, $f);
--
Michael G. Schwern <schwern@pobox.com> http://www.pobox.com/~schwern/
Perl6 Quality Assurance <perl-qa@perl.org> Kwalitee Is Job One
<mendel> ScHWeRnsChweRN sChWErN SchweRN SCHWErNSChwERnsCHwERN
sChWErn ScHWeRn schweRn sCHWErN schWeRn scHWeRN
SchWeRN scHWErn SchwErn scHWErn ScHweRN sChwern
scHWerN scHWeRn scHWerN ScHwerN SChWeRN scHWeRn
SchwERNschwERn SCHwern sCHWErN SCHWErN sChWeRn