From f172cc6b21451555a6fca6f8f3e1b16818dfec48 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Sun, 1 Apr 2007 18:01:01 +0000
Subject: Mark new regex glob test as a TODO on VMS.

p4raw-id: //depot/perl@30826
---
 ext/File/Glob/t/basic.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'ext')

diff --git a/ext/File/Glob/t/basic.t b/ext/File/Glob/t/basic.t
index cee453c5e9..4263272a20 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: $!";
 }
-- 
cgit v1.2.1