Change 14436 by jhi@alpha on 2002/01/26 23:14:04
Overquoting bad (in UNIX one would get
Can't open perl script "'-I../lib'": No such file or directory)
Affected files ...
.... //depot/perl/lib/Pod/t/Usage.t#3 edit
Differences ...
==== //depot/perl/lib/Pod/t/Usage.t#3 (text) ====
Index: perl/lib/Pod/t/Usage.t
--- perl/lib/Pod/t/Usage.t.~1~ Sat Jan 26 16:30:05 2002
+++ perl/lib/Pod/t/Usage.t Sat Jan 26 16:30:05 2002
@@ -59,11 +59,13 @@
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()' );
}
End of Patch.
