In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/b511b76c13128d58be6ce6f501c501d208b69a4e?hp=0169d36e2d78b8b697b0db7c9a8a7319787152bd>
- Log ----------------------------------------------------------------- commit b511b76c13128d58be6ce6f501c501d208b69a4e Author: Craig A. Berry <[email protected]> Date: Tue Mar 22 21:07:28 2011 -0500 Skip t/porting/regen.t on VMS. The output of regen.pl is slightly different than on Unix. Could probably be ported with a moderate effort. M t/porting/regen.t commit bffed04b894eb825f9676b3b1d04e8ce1d721852 Author: Craig A. Berry <[email protected]> Date: Tue Mar 22 21:05:16 2011 -0500 Skip t/porting/exec-bit.t on VMS. It would need some porting to work. In particular, filename case is not preserved by default, so it's trying a lot of matches that won't match. M t/porting/exec-bit.t ----------------------------------------------------------------------- Summary of changes: t/porting/exec-bit.t | 4 ++++ t/porting/regen.t | 4 ++++ 2 files changed, 8 insertions(+), 0 deletions(-) diff --git a/t/porting/exec-bit.t b/t/porting/exec-bit.t index 482654a..02506c7 100644 --- a/t/porting/exec-bit.t +++ b/t/porting/exec-bit.t @@ -11,6 +11,10 @@ if ( $^O eq "MSWin32" ) { skip_all( "-x on MSWin32 only indicates file has executable suffix. Try Cygwin?" ); } +if ( $^O eq "VMS" ) { + skip_all( "Filename case may not be preserved and other porting issues." ); +} + plan('no_plan'); use ExtUtils::Manifest qw(maniread); diff --git a/t/porting/regen.t b/t/porting/regen.t index 4c44cf2..d5b3c52 100644 --- a/t/porting/regen.t +++ b/t/porting/regen.t @@ -23,6 +23,10 @@ require 'regen/regen_lib.pl'; require 't/test.pl'; $::NO_ENDING = $::NO_ENDING = 1; +if ( $^O eq "VMS" ) { + skip_all( "- regen.pl needs porting." ); +} + my $in_regen_pl = 17; # I can't see a clean way to calculate this automatically. my @files = qw(perly.act perly.h perly.tab keywords.c keywords.h); my @progs = qw(Porting/makemeta regen/regcharclass.pl regen/mk_PL_charclass.pl); -- Perl5 Master Repository
