1_compile.t fix for VMS

From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <5.1.0.14.2.20020327150907.01b17470@exchi01>

p4raw-id: //depot/perl@15554

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++;
 }
 

diff --git a/t/lib/compmod.pl b/t/lib/compmod.pl
index 68a9665..00dc1fb 100644 (file)
--- a/t/lib/compmod.pl
+++ b/t/lib/compmod.pl
@@ -11,7 +11,8 @@ my $module = shift;
 eval "use $module ();";
 if( $@ ) {
     print "not ";
-    warn "require failed with '$@'\n";
+    $@ =~ s/\n/\n# /g;
+    warn "# require failed with '$@'\n";
 }
 print "ok - $module\n";