httpd-apreq-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From j...@apache.org
Subject cvs commit: httpd-apreq-2/build version_check.pl
Date Tue, 28 Oct 2003 03:23:56 GMT
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};
  
  
  

Mime
View raw message