]>
Commit | Line | Data |
---|---|---|
942f06d1 JB |
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 | |
3 | @@ -111,6 +111,7 @@ | |
4 | my $opt_a = 0; | |
5 | my $opt_A = 0; | |
6 | my $opt_q = 0; | |
7 | +my $opt_v = 0; | |
8 | ||
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 | |
11 | @@ -190,7 +191,7 @@ | |
12 | ||
13 | # option handling | |
14 | my $rc; | |
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); | |
17 | &usage if ($rc == 0); | |
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); | |
20 | @@ -247,7 +248,9 @@ | |
21 | my ($cmd, $rc); | |
22 | ||
23 | foreach $cmd (@cmds) { | |
24 | - print STDERR "$cmd\n"; | |
25 | + if ($opt_v or not $opt_e) { | |
26 | + print STDERR "$cmd\n"; | |
27 | + } | |
28 | $rc = system("$cmd"); | |
29 | if ($rc != 0) { | |
30 | printf(STDERR "apxs:Break: Command failed with rc=%d\n", $rc >> 8); |