On Wed, 10 Aug 2005 08:28:33 -0400, "John E. Malmberg" <[EMAIL PROTECTED]> 
wrote:

> John E. Malmberg wrote:
> > Here are some miscellaneous VMS specific things that need to be fixed 
> > for VMS to work with the VMS C Run-Time Library (CRTL) UNIX filename 
> > mode that do not require any other changes to Perl for implementation.
> 
> Can the patches that I previously posted in this thread be applied to 
> the current blead please?

I wonder the use of if $^O eq 'VMS' in the last patch.
Isn't that always true?

--- lib/vmsish.t_blead  Mon Aug  1 23:49:20 2005
+++ lib/vmsish.t        Mon Aug  1 23:54:27 2005
@@ -5,7 +5,10 @@
     @INC = '../lib'; 
 }
 
-my $Invoke_Perl = qq(MCR $^X "-I[-.lib]");
+my $perl = $^X;
+$perl = VMS::Filespec::vmsify($perl) if $^O eq 'VMS';
+
+my $Invoke_Perl = qq(MCR $perl "-I[-.lib]");
 
 require "./test.pl";
 plan(tests => 25);

-- 
H.Merijn Brand        Amsterdam Perl Mongers (http://amsterdam.pm.org/)
using Perl 5.6.2, 5.8.0, 5.8.5, & 5.9.2  on HP-UX 10.20, 11.00 & 11.11,
 AIX 4.3 & 5.2, SuSE 9.2 & 9.3, and Cygwin. http://www.cmve.net/~merijn
Smoking perl: http://www.test-smoke.org,    perl QA: http://qa.perl.org
 reports  to: [EMAIL PROTECTED],                perl-qa@perl.org

Reply via email to