X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FPod%2Ft%2FUsage.t;h=f5c7207b8ce9a98c24c2660c08aaccac728c7ee1;hb=0ec158f4b0db050abb15876df15f5f883540cfd9;hp=cc03ad63905af86a6034111a678c0488b6fe6116;hpb=0cb07b6bbef2057a7b0d8b2623a8788c67377780;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Pod/t/Usage.t b/lib/Pod/t/Usage.t
index cc03ad6..f5c7207 100644
--- a/lib/Pod/t/Usage.t
+++ b/lib/Pod/t/Usage.t
@@ -59,11 +59,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()' );
 }