Marcus Holland-Moritz wrote:
On 2004-10-09, at 18:10:25 +0200, Abe Timmerman wrote:


My first results (manual run):

Failed Test                       Stat Wstat Total Fail  Failed  List of Failed
-------------------------------------------------------------------------------
[-.ext.Devel.PPPort.t]ppphtest.t               134    2   1.49%  2-3

The problem is that when the test is running as part of the core build, a -I parameter is inserted into the command line without double quoting it to preserve case. If it's possible for the Devel::PPPort tests to use runperl() from t/test.pl, that would make this sort of portability issue go away. In the meantime, the attached will take care of this particular failure.

--- ext/Devel/PPPort/parts/inc/ppphtest;-0      Sun Sep  5 16:23:24 2004
+++ ext/Devel/PPPort/parts/inc/ppphtest Fri Oct  1 16:20:38 2004
@@ -30,7 +30,7 @@
 
 if ($ENV{'PERL_CORE'}) {
   if (-d '../../lib') {
-    $inc = '-I../../lib';
+    $inc = $^O eq 'VMS' ? '-"I../../lib"' : '-I../../lib';
     unshift @INC, '../../lib';
   }
 }
--- ext/Devel/PPPort/t/ppphtest.t;-0    Fri Sep 10 05:57:02 2004
+++ ext/Devel/PPPort/t/ppphtest.t       Fri Oct  1 16:14:11 2004
@@ -48,7 +48,7 @@
 
 if ($ENV{'PERL_CORE'}) {
   if (-d '../../lib') {
-    $inc = '-I../../lib';
+    $inc = $^O eq 'VMS' ? '-"I../../lib"' : '-I../../lib';
     unshift @INC, '../../lib';
   }
 }

Reply via email to