cygwin update (from Eric Fifer)

[p5sagit/p5-mst-13.2.git] / t / lib / dirhand.t

diff --git a/t/lib/dirhand.t b/t/lib/dirhand.t
index 8403609..a8683c7 100755 (executable)
--- a/t/lib/dirhand.t
+++ b/t/lib/dirhand.t
@@ -2,9 +2,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bPOSIX\b/) {
+    if (not $Config{'d_readdir'}) {
        print "1..0\n";
        exit 0;
     }
@@ -17,7 +17,7 @@ print "1..5\n";
 $dot = new DirHandle ".";
 print defined($dot) ? "ok" : "not ok", " 1\n";
 
-@a = <*>;
+@a = sort <*>;
 do { $first = $dot->read } while defined($first) && $first =~ /^\./;
 print +(grep { $_ eq $first } @a) ? "ok" : "not ok", " 2\n";