Fix VMS-specific case nit in File::Glob's basic.t.
authorCraig A. Berry <craigberry@mac.com>
Sun, 11 Nov 2012 14:09:28 +0000 (08:09 -0600)
committerCraig A. Berry <craigberry@mac.com>
Sun, 11 Nov 2012 14:09:28 +0000 (08:09 -0600)
t/TEST may appear in upper or lower case and with or without a
trailing dot depending on various Unix compatibility settings.

ext/File-Glob/t/basic.t

index 497241f..59faffd 100644 (file)
@@ -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}
 {