1 --- apache_1.3.22/src/support/apxs.pl.orig Fri Dec 7 20:32:18 2001
2 +++ apache_1.3.22/src/support/apxs.pl Fri Dec 7 21:47:25 2001
9 # this subroutine is derived from Perl's getopts.pl with the enhancement of
10 # the "+" metacharater at the format string to allow a list to be build by
15 -($rc, @ARGV) = &Getopts("qn:gco:I+D+L+l+W+S+eiaA", @ARGV);
16 +($rc, @ARGV) = &Getopts("qn:gco:I+D+L+l+W+S+eiaAv", @ARGV);
18 &usage if ($#ARGV == -1 and not $opt_g);
19 &usage if (not $opt_q and not ($opt_g and $opt_n) and not $opt_i and not $opt_c and not $opt_e);
23 foreach $cmd (@cmds) {
24 - print STDERR "$cmd\n";
25 + if ($opt_v or not $opt_e) {
26 + print STDERR "$cmd\n";
30 printf(STDERR "apxs:Break: Command failed with rc=%d\n", $rc >> 8);