joes 2003/10/27 19:23:56
Modified: build version_check.pl
Log:
Have version_check.pl print the prereq list when @ARGV is empty.
Revision Changes Path
1.3 +7 -3 httpd-apreq-2/build/version_check.pl
Index: version_check.pl
===================================================================
RCS file: /home/cvs/httpd-apreq-2/build/version_check.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- version_check.pl 27 Oct 2003 22:51:57 -0000 1.2
+++ version_check.pl 28 Oct 2003 03:23:56 -0000 1.3
@@ -4,12 +4,11 @@
my $usage = "Usage: version_check.pl tool version_string [path/to/tool]";
-die "$usage: arguments needed." unless @ARGV;
my ($tool, $path) = @ARGV;
$path = $tool unless defined $path;
sub exe_version { scalar qx/$path -v/ }
-sub gnu_version { scalar qx/$path --version / }
+sub gnu_version { scalar qx/$path --version/ }
sub xsb_version {
package ExtUtils::XSBuilder;
@@ -36,9 +35,14 @@
apu => { test => \&gnu_version, version => "0.9.4" },
perl => { test => \&gnu_version, version => "5.6.1" },
xsbuilder => { test => \&xsb_version, version => "0.23" },
- mp2 => { test => \&mp2_version, version => "1.9909"},
+ mp2 => { test => \&mp2_version, version => "1.99_09"},
doxygen => { test => \&gnu_version, version => "1.3" },
);
+
+if (@ARGV == 0) {
+ printf "%10s: %s\n", $_, $prereq{$_}->{version} for sort keys %prereq;
+ exit 0;
+}
die "$0 failed: unknown tool '$tool'." unless $prereq{$tool};
my $version = $prereq{$tool}->{version};
