From: Craig A. Berry <craigberry@mac.com>
Date: Wed, 27 Mar 2002 15:22:13 +0000 (-0600)
Subject: 1_compile.t fix for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b328b5014aab0f2b3da5a87f9e04fca1b7020983;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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";