1_compile.t fix for VMS

[p5sagit/p5-mst-13.2.git] / t / lib / 1_compile.t

diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t
index 921aa6f..20e26ef 100644 (file)
--- a/t/lib/1_compile.t
+++ b/t/lib/1_compile.t
@@ -37,8 +37,10 @@ if (@Core_Modules) {
 my $test_num = 2;
 
 foreach my $module (@Core_Modules) {
-    print "$module compile failed\nnot " unless compile_module($module);
-    print "ok $test_num\n";
+    my $todo = '';
+    $todo = "# TODO $module needs porting on $^O" if $module eq 'ByteLoader' && $^O eq 'VMS';
+    print "# $module compile failed\nnot " unless compile_module($module);
+    print "ok $test_num $todo\n";
     $test_num++;
 }