From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 14 Oct 2004 10:09:41 +0000 (-0500)
Subject: Re: [NOT OK] 23353 OpenVMS 7.2 VAX
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d8d9a45565468f5ed50aa4257f7366c751a44183;p=p5sagit%2Fp5-mst-13.2.git

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