In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/affed6886311cfd4a2817906634806267b1042c6?hp=9d4baee2fcb9d49ba7bbf5618ac57b983caabeae>
- Log ----------------------------------------------------------------- commit affed6886311cfd4a2817906634806267b1042c6 Author: Craig A. Berry <[email protected]> Date: Thu Dec 30 19:45:13 2010 -0600 VMS nits in cpan/Test-Harness/t/source.t [Reapplying ada6eeb82df as it's still awaiting application upstream two years later and the things it fixes get broken again every time a new version of Test::Harness is brought into blead.] 1.) Can't get the basename of a directory in native format. 2.) Symlinks still a bit dodgy -- skip tests for now. Submitted upstream at: https://rt.cpan.org/Ticket/Display.html?id=64353 ----------------------------------------------------------------------- Summary of changes: 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 6b69cc1..cdfd9e5 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'); @@ -237,6 +234,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' ); -- Perl5 Master Repository
