Change 14430: Re: [PATCH @14417] vmsify Pod::Usage and its test

[Jarkko Hietaniemi]

Change 14430 by jhi@alpha on 2002/01/26 20:54:16

        Subject: Re: [PATCH @14417] vmsify Pod::Usage and its test
        From: "Craig A. Berry" <[EMAIL PROTECTED]>       
        Date: Sat, 26 Jan 2002 11:19:44 -0600
        Message-Id: <a05101000b87895064ee3@[172.16.52.1]>

Affected files ...

.... //depot/perl/lib/Pod/Usage.pm#15 edit
.... //depot/perl/lib/Pod/t/Usage.t#2 edit

Differences ...

==== //depot/perl/lib/Pod/Usage.pm#15 (text) ====
Index: perl/lib/Pod/Usage.pm
--- perl/lib/Pod/Usage.pm.~1~   Sat Jan 26 14:00:05 2002
+++ perl/lib/Pod/Usage.pm       Sat Jan 26 14:00:05 2002
@@ -478,7 +478,7 @@
     unless ((ref $opts{"-input"}) || (-e $opts{"-input"})) {
         my ($dirname, $basename) = ('', $opts{"-input"});
         my $pathsep = ($^O =~ /^(?:dos|os2|MSWin32)$/) ? ";"
-                            : (($^O eq 'MacOS') ? ',' :  ":");
+                            : (($^O eq 'MacOS' || $^O eq 'VMS') ? ',' :  ":");
         my $pathspec = $opts{"-pathlist"} || $ENV{PATH} || $ENV{PERL5LIB};
 
         my @paths = (ref $pathspec) ? @$pathspec : split($pathsep, $pathspec);

==== //depot/perl/lib/Pod/t/Usage.t#2 (text) ====
Index: perl/lib/Pod/t/Usage.t
--- perl/lib/Pod/t/Usage.t.~1~  Sat Jan 26 14:00:05 2002
+++ perl/lib/Pod/t/Usage.t      Sat Jan 26 14:00:05 2002
@@ -48,16 +48,21 @@
 }
 
 { # Test exit status from pod2usage()
-    my $exit = 42;
+    my $exit = ($^O eq 'VMS' ? 2 : 42);
     my $dev_null = File::Spec->devnull;
     my $args = join ", ", (
         "-verbose => 0", 
         "-exit    => $exit",
-        "-output  => q[$dev_null]",
-        "-input   => q[$0]",
+        "-output  => q{$dev_null}",
+        "-input   => q{$0}",
     );
-    my $prg = qq[pod2usage({ $args })];
-    my @cmd = ( $^X, '-I../lib',  '-MPod::Usage', '-e',  $prg );
+    my $cq = (($^O eq 'MSWin32'
+               || $^O eq 'NetWare'
+               || $^O eq 'VMS') ? '"'
+              : "'");
+    my @params = ( "${cq}-I../lib$cq",  "${cq}-MPod::Usage$cq", '-e' );
+    my $prg = qq[${cq}pod2usage({ $args })$cq];
+    my @cmd = ( $^X, @params, $prg );
 
     is( system( @cmd ) >> 8, $exit, 'Exit status of pod2usage()' );
 }
End of Patch.