First is to fix a simple writo on my part ... test 3 should NOT be
run for Win32 or VMS.
Test 8 is more subtle...when you specify flags to the File::Glob:glob
function, it completely ignores its DEFAULT_FLAGS...in particular, you
lose the GLOB_NOCASE flag, that you *really* *need* on VMS.
Patch follows:
--- t/lib/glob-basic.t-orig Fri Mar 17 22:03:30 2000
+++ t/lib/glob-basic.t Fri Mar 17 22:23:00 2000
@@ -39,7 +39,7 @@
# look up the user's home directory
# should return a list with one item, and not set ERROR
-if ($^O ne 'MSWin32' || $^O ne 'VMS') {
+if ($^O ne 'MSWin32' && $^O ne 'VMS') {
eval {
($name, $home) = (getpwuid($>))[0,7];
1;
@@ -99,7 +99,7 @@
@a = File::Glob::glob(
'{TES*,doesntexist*,a,b}',
- GLOB_BRACE | GLOB_NOMAGIC
+ GLOB_BRACE | GLOB_NOMAGIC | ($^O eq 'VMS' ? GLOB_NOCASE : 0)
);
unless (@a == 3
and $a[0] eq ($^O eq 'VMS'? 'test.' : 'TEST')
--
Drexel University \V --Chuck Lane
----------------->--------*------------<[EMAIL PROTECTED]
(215) 895-1545 / \ Particle Physics [EMAIL PROTECTED]
FAX: (215) 895-5934 /~~~~~~~~~~~ [EMAIL PROTECTED]
