diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-12-19 16:19:43 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2009-12-19 10:54:11 -0600 |
| commit | 45f1c7ba254326ae93fdeb7a741a821236aa1526 (patch) | |
| tree | 2994c6089e901b3b23cf3a5f12bb9e567d91db15 /t | |
| parent | 15fe4dead04687a0a035e4103e5bb3965fa4c9f4 (diff) | |
| download | perl-45f1c7ba254326ae93fdeb7a741a821236aa1526.tar.gz | |
Run t/porting/diag.t from the top-level directory.
The home-grown glob on VMS does not properly handle relative paths
containing C<../> so this test has been failing for reasons having
nothng to do with what's being tested. For now, just avoid the
problem by running from one level up.
Message-id: <20091219161943.GQ2582@plum.flirble.org>
Diffstat (limited to 't')
| -rw-r--r-- | t/porting/diag.t | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/t/porting/diag.t b/t/porting/diag.t index 14c2f848cb..0241a1278e 100644 --- a/t/porting/diag.t +++ b/t/porting/diag.t @@ -10,8 +10,10 @@ $|=1; my $make_exceptions_list = ($ARGV[0]||'') eq '--make-exceptions-list'; -open my $diagfh, "<", "../pod/perldiag.pod" - or die "Can't open ../pod/perldiag.pod: $!"; +chdir '..' or die "Can't chdir ..: $!"; + +open my $diagfh, "<", "pod/perldiag.pod" + or die "Can't open pod/perldiag.pod: $!"; my %entries; while (<DATA>) { @@ -32,12 +34,12 @@ while (<$diagfh>) { } } -my @todo = ('..'); +my @todo = <*>; while (@todo) { my $todo = shift @todo; - next if $todo ~~ ['../t', '../lib', '../ext', '../dist', '../cpan']; + next if $todo ~~ ['t', 'lib', 'ext', 'dist', 'cpan']; # opmini.c is just a copy of op.c, so there's no need to check again. - next if $todo eq '../opmini.c'; + next if $todo eq 'opmini.c'; if (-d $todo) { push @todo, glob "$todo/*"; } elsif ($todo =~ m/\.[ch]$/) { |