Change 11245 by jhi@alpha on 2001/07/10 01:18:04
Subject: [PATCH ext/File/Glob/t/basic.t]
From: Norton Allen <[EMAIL PROTECTED]>
Date: Mon, 9 Jul 2001 17:16:15 -0400 (edt)
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/File/Glob/t/basic.t#2 edit
Differences ...
==== //depot/perl/ext/File/Glob/t/basic.t#2 (xtext) ====
Index: perl/ext/File/Glob/t/basic.t
--- perl/ext/File/Glob/t/basic.t.~1~ Mon Jul 9 19:30:05 2001
+++ perl/ext/File/Glob/t/basic.t Mon Jul 9 19:30:05 2001
@@ -84,7 +84,7 @@
print "ok 6 # skipped\n";
}
else {
- $dir = "pteerslt";
+ $dir = "pteerslo";
mkdir $dir, 0;
@a = bsd_glob("$dir/*", GLOB_ERR);
#print "\@a = ", array(@a);
@@ -132,8 +132,8 @@
print "ok 9\n";
# GLOB_ALPHASORT (default) should sort alphabetically regardless of case
-mkdir "pteerslt", 0777;
-chdir "pteerslt";
+mkdir "pteerslo", 0777;
+chdir "pteerslo";
@f_names = qw(Ax.pl Bx.pl Cx.pl aY.pl bY.pl cY.pl);
@f_alpha = qw(Ax.pl aY.pl Bx.pl bY.pl Cx.pl cY.pl);
@@ -172,4 +172,4 @@
unlink @f_names;
chdir "..";
-rmdir "pteerslt";
+rmdir "pteerslo";
End of Patch.
