From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 26 Jan 2002 23:14:04 +0000 (+0000)
Subject: Overquoting bad (in UNIX one would get
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2c05888b4b13539bb1f6ede6ee07b751a94e409f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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()' );
 }