Skip t/porting/regen.t on VMS.
authorCraig A. Berry <craigberry@mac.com>
Wed, 23 Mar 2011 02:07:28 +0000 (21:07 -0500)
committerCraig A. Berry <craigberry@mac.com>
Wed, 23 Mar 2011 02:07:28 +0000 (21:07 -0500)
The output of regen.pl is slightly different than on Unix.  Could
probably be ported with a moderate effort.

t/porting/regen.t

index 4c44cf2..d5b3c52 100644 (file)
@@ -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);