diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-26 23:14:04 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-26 23:14:04 +0000 |
| commit | 2c05888b4b13539bb1f6ede6ee07b751a94e409f (patch) | |
| tree | fc4609195c7f07657b8a8ceb7a97c0031970e63b /lib/Pod | |
| parent | 579bf0186e68e2f07630f0927aab996c2020073d (diff) | |
| download | perl-2c05888b4b13539bb1f6ede6ee07b751a94e409f.tar.gz | |
Overquoting bad (in UNIX one would get
Can't open perl script "'-I../lib'": No such file or directory)
p4raw-id: //depot/perl@14436
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/t/Usage.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Pod/t/Usage.t b/lib/Pod/t/Usage.t index cc03ad6390..f5c7207b8c 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()' ); } |