diff options
| author | Craig A. Berry <craigberry@mac.com> | 2007-04-01 18:01:01 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2007-04-01 18:01:01 +0000 |
| commit | f172cc6b21451555a6fca6f8f3e1b16818dfec48 (patch) | |
| tree | c45456fd3c47068dc0273f56a405ee854d215258 /ext | |
| parent | 0a31a4b21e10c783e0ece41d7bc8db99c10f11ce (diff) | |
| download | perl-f172cc6b21451555a6fca6f8f3e1b16818dfec48.tar.gz | |
Mark new regex glob test as a TODO on VMS.
p4raw-id: //depot/perl@30826
Diffstat (limited to 'ext')
| -rwxr-xr-x | ext/File/Glob/t/basic.t | 3 |
1 files changed, 2 insertions, 1 deletions
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: $!"; } |