Overquoting bad (in UNIX one would get

Can't open perl script "'-I../lib'": No such file or directory)

p4raw-id: //depot/perl@14436

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