Overquoting bad (in UNIX one would get
Jarkko Hietaniemi [Sat, 26 Jan 2002 23:14:04 +0000 (23:14 +0000)]
Can't open perl script "'-I../lib'": No such file or directory)

p4raw-id: //depot/perl@14436

lib/Pod/t/Usage.t

index cc03ad6..f5c7207 100644 (file)
@@ -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()' );
 }