From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 1 Apr 2007 18:01:01 +0000 (+0000)
Subject: Mark new regex glob test as a TODO on VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f172cc6b21451555a6fca6f8f3e1b16818dfec48;p=p5sagit%2Fp5-mst-13.2.git

Mark new regex glob test as a TODO on VMS.

p4raw-id: //depot/perl@30826
---

diff --git a/ext/File/Glob/t/basic.t b/ext/File/Glob/t/basic.t
index cee453c..4263272 100755
--- a/ext/File/Glob/t/basic.t
+++ b/ext/File/Glob/t/basic.t
@@ -206,7 +206,8 @@ print "ok 12\n";
     if (!(@glob_files == 1 && "@glob_files" eq "a_dej")) {
 	print "not ";
     }
-    print "ok 13\n";
+    my $todo = $^O ne 'VMS' ? '' : " # TODO home-made glob doesn't do regexes";
+    print "ok 13$todo\n";
     chdir $cwd
 	or die "Could not chdir back to $cwd: $!";
 }