Fixes for "installhtml --splithead", based on :

[p5sagit/p5-mst-13.2.git] / lib / Pod / t / Usage.t

diff --git a/lib/Pod/t/Usage.t b/lib/Pod/t/Usage.t
index cc03ad6..d970d91 100644 (file)
--- a/lib/Pod/t/Usage.t
+++ b/lib/Pod/t/Usage.t
@@ -47,7 +47,8 @@ SKIP: {
     is( $$fake_out, $vbl_0, '-pathlist parameter' );
 }
 
-{ # Test exit status from pod2usage()
+SKIP: { # Test exit status from pod2usage()
+    skip "Exit status broken on Mac OS", 1 if $^O eq 'MacOS';
     my $exit = ($^O eq 'VMS' ? 2 : 42);
     my $dev_null = File::Spec->devnull;
     my $args = join ", ", (
@@ -59,11 +60,13 @@ SKIP: {
     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 );
 
+    print "# cmd = @cmd\n";
+
     is( system( @cmd ) >> 8, $exit, 'Exit status of pod2usage()' );
 }