Fix VMS-specific case nit in File::Glob's basic.t.

t/TEST may appear in upper or lower case and with or without a
trailing dot depending on various Unix compatibility settings.

diff --git a/ext/File-Glob/t/basic.t b/ext/File-Glob/t/basic.t
index 497241f..59faffd 100644 (file)
--- a/ext/File-Glob/t/basic.t
+++ b/ext/File-Glob/t/basic.t
@@ -159,9 +159,10 @@ is_deeply(\@a, ['a', 'b']);
 @a = grep !/(,v$|~$|\.(pm|ori?g|rej)$)/, @a;
 @a = (grep !/test.pl/, @a) if $^O eq 'VMS';
 
+map { $_  =~ s/test\.?/TEST/i } @a if $^O eq 'VMS';
 print "# @a\n";
 
-is_deeply(\@a, [($vms_mode ? 'test.' : 'TEST'), 'a', 'b']);
+is_deeply(\@a, ['TEST', 'a', 'b']);
 
 # "~" should expand to $ENV{HOME}
 {