Re: [NOT OK] 23353 OpenVMS 7.2 VAX

From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <416E96B5.5020100@mac.com>

p4raw-id: //depot/perl@23367

diff --git a/ext/Devel/PPPort/parts/inc/ppphtest b/ext/Devel/PPPort/parts/inc/ppphtest
index 58de18f..8dd045f 100644 (file)
--- a/ext/Devel/PPPort/parts/inc/ppphtest
+++ b/ext/Devel/PPPort/parts/inc/ppphtest
@@ -30,7 +30,7 @@ chdir($tmp) or die "chdir $tmp: $!\n";
 
 if ($ENV{'PERL_CORE'}) {
   if (-d '../../lib') {
-    $inc = '-I../../lib';
+    $inc = $^O eq 'VMS' ? '-"I../../lib"' : '-I../../lib';
     unshift @INC, '../../lib';
   }
 }

diff --git a/ext/Devel/PPPort/t/ppphtest.t b/ext/Devel/PPPort/t/ppphtest.t
index f23cfa8..e1cf0ed 100644 (file)
--- a/ext/Devel/PPPort/t/ppphtest.t
+++ b/ext/Devel/PPPort/t/ppphtest.t
@@ -48,7 +48,7 @@ chdir($tmp) or die "chdir $tmp: $!\n";
 
 if ($ENV{'PERL_CORE'}) {
   if (-d '../../lib') {
-    $inc = '-I../../lib';
+    $inc = $^O eq 'VMS' ? '-"I../../lib"' : '-I../../lib';
     unshift @INC, '../../lib';
   }
 }