httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestBuild.pm
Date Tue, 16 Apr 2002 01:33:38 GMT
dougm       02/04/15 18:33:38

  Modified:    perl-framework/Apache-Test/lib/Apache TestBuild.pm
  Log:
  add --name option
  use '-' as a delimiter for multi options rather than ' '
  
  Revision  Changes    Path
  1.2       +8 -3      httpd-test/perl-framework/Apache-Test/lib/Apache/TestBuild.pm
  
  Index: TestBuild.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestBuild.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- TestBuild.pm	6 Apr 2002 20:07:44 -0000	1.1
  +++ TestBuild.pm	16 Apr 2002 01:33:38 -0000	1.2
  @@ -97,6 +97,7 @@
           mpms => default_mpms(),
           make => $Config{make},
           builds => {},
  +        name => "",
           extra_config => {
               'httpd-2.0' => [],
           },
  @@ -345,6 +346,9 @@
   
   sub install_name {
       my($self, $builds, $configs, $mpm) = @_;
  +
  +    return $self->{name} if $self->{name};
  +
       my $name = join '-', $mpm, @$builds, @$configs;
   
       if (my $tag = $self->cvs_name) {
  @@ -581,6 +585,7 @@
       mpms    => "MPMs to build (e.g. 'prefork')",
       flavor  => "build flavor (e.g. 'debug shared')",
       modules => "enable modules (e.g. 'all exp')",
  +    name    => "change name of the build/install directory",
   );
   
   my %opts;
  @@ -601,8 +606,8 @@
   #$opts{cvsroot} ||= '';
   $opts{version} ||= '2.0';
   $opts{mpms}    ||= 'prefork';
  -$opts{flavor}  ||= 'debug shared';
  -$opts{modules} ||= 'all exp';
  +$opts{flavor}  ||= 'debug-shared';
  +$opts{modules} ||= 'all-exp';
   
   #my @versions = qw(2.0);
   
  @@ -613,7 +618,7 @@
   
   #my @modules = ([qw(all exp)]);
   
  -my $split = sub { split /\s+/, delete $opts{ $_[0] } };
  +my $split = sub { split '-', delete $opts{ $_[0] } };
   
   my @versions = $opts{version};
   
  
  
  

Mime
View raw message