httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test Makefile.PL
Date Mon, 28 Apr 2003 03:13:48 GMT
stas        2003/04/27 20:13:48

  Modified:    perl-framework/Apache-Test Makefile.PL
  Log:
  equip Apache::Test's Makefile with the cvs_tag target
  
  Revision  Changes    Path
  1.6       +35 -2     httpd-test/perl-framework/Apache-Test/Makefile.PL
  
  Index: Makefile.PL
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/Makefile.PL,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- Makefile.PL	22 Apr 2003 05:21:51 -0000	1.5
  +++ Makefile.PL	28 Apr 2003 03:13:48 -0000	1.6
  @@ -4,6 +4,8 @@
   
   use lib qw(lib);
   
  +my $VERSION;
  +
   use Apache::Test5005compat;
   
   use Apache::TestMM qw(test); #enable 'make test'
  @@ -16,11 +18,42 @@
       Apache::TestMM::generate_script($_);
   }
   
  +set_version();
  +
   WriteMakefile(
  -    NAME         => 'Apache::Test',
  -    VERSION_FROM => 'lib/Apache/Test.pm',
  +    NAME      => 'Apache::Test',
  +    VERSION   => $VERSION,
       dist      => {
   	COMPRESS => 'gzip -9f', SUFFIX=>'gz',
       },
   );
  +
  +sub set_version {
  +    $VERSION = $Apache::Test::VERSION;
  +
  +    open my $fh, 'Changes';
  +    while(<$fh>) {
  +	if(/^=item.*-dev/) {
  +	    $VERSION .= '-dev';
  +	    last;
  +	}
  +	last if /^=item/;
  +    }
  +    close $fh;
  +
  +}
  +
  +sub MY::postamble {
  +    my $self = shift;
  +
  +    my $string = $self->MY::postamble;
  +
  +    $string .= <<'EOF';
  +cvs_tag :
  +	cvs tag APACHE_TEST_$(VERSION_SYM) .
  +	@echo update lib/Apache/Test.pm VERSION now
  +EOF
  +
  +    return $string;
  +}
   
  
  
  

Mime
View raw message