diff options
| author | Craig A. Berry <craigberry@mac.com> | 2011-03-15 21:41:25 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2011-03-16 07:13:30 -0500 |
| commit | 26cedddc4c992e579835856d173ca78d6e8ba26e (patch) | |
| tree | f81f08a05393ce7e76c56b7f45e8b0fe6d3d547a /cpan | |
| parent | 0ef88544f2831dc8fe0ddf0d4bf452340f6ef0e6 (diff) | |
| download | perl-26cedddc4c992e579835856d173ca78d6e8ba26e.tar.gz | |
Restore ada6eeb82df60fbe63c781f1a102393fd56d104b.
which was clobbered by 149d510d6e1a1cffb86aac23789fcb26ff67ffa9,
and is still awaiting upstream integration at:
https://rt.cpan.org/Ticket/Display.html?id=64353
Diffstat (limited to 'cpan')
| -rw-r--r-- | cpan/Test-Harness/t/source.t | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/cpan/Test-Harness/t/source.t b/cpan/Test-Harness/t/source.t index 77f61845bb..92bf4a1a06 100644 --- a/cpan/Test-Harness/t/source.t +++ b/cpan/Test-Harness/t/source.t @@ -9,10 +9,7 @@ use strict; use Test::More tests => 45; use File::Spec; -my $dir = File::Spec->catdir( - 't', - 'source_tests' -); +my $dir = 't/source_tests'; use_ok('TAP::Parser::Source'); @@ -236,6 +233,7 @@ sub ct($) { # symlink test SKIP: { my $symlink_exists = eval { symlink( '', '' ); 1 }; + $symlink_exists = 0 if $^O eq 'VMS'; # exists but not ready for prime time skip 'symlink not supported on this platform', 9 unless $symlink_exists; my $test = File::Spec->catfile( $dir, 'source.t' ); |