Author: stas Date: Tue Jan 4 11:30:45 2005 New Revision: 124145 URL: http://svn.apache.org/viewcvs?view=rev&rev=124145 Log: moving to the triplet version notation, which requires us to bump 1.99 => 1.999 so 1.999020 (mp2) > 1.29 (mp1). Now we are gong to have: $mod_perl::VERSION : "1.099020" int $mod_perl::VERSION : 1.09902 $mod_perl::VERSION_TRIPLET: 1.99.20
Modified: perl/modperl/trunk/Changes perl/modperl/trunk/Makefile.PL perl/modperl/trunk/lib/mod_perl.pm Modified: perl/modperl/trunk/Changes Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/Changes?view=diff&rev=124145&p1=perl/modperl/trunk/Changes&r1=124144&p2=perl/modperl/trunk/Changes&r2=124145 ============================================================================== --- perl/modperl/trunk/Changes (original) +++ perl/modperl/trunk/Changes Tue Jan 4 11:30:45 2005 @@ -10,7 +10,14 @@ =over 3 -=item 1.99_20-dev +=item 1.999_20-dev + +moving to the triplet version notation, which requires us to bump 1.99 +=> 1.999 so 1.999020 (mp2) > 1.29 (mp1). [Stas] +Now we are gong to have: + $mod_perl::VERSION : "1.099020" + int $mod_perl::VERSION : 1.09902 + $mod_perl::VERSION_TRIPLET: 1.99.20 <Perl> and PerlPostConfigRequires were leaking some memory at startup. Use parms->temp_pool instead of parms->pool for temporary Modified: perl/modperl/trunk/Makefile.PL Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/Makefile.PL?view=diff&rev=124145&p1=perl/modperl/trunk/Makefile.PL&r1=124144&p2=perl/modperl/trunk/Makefile.PL&r2=124145 ============================================================================== --- perl/modperl/trunk/Makefile.PL (original) +++ perl/modperl/trunk/Makefile.PL Tue Jan 4 11:30:45 2005 @@ -465,8 +465,7 @@ sub set_modperl_version { require './lib/mod_perl.pm'; - $VERSION = $mod_perl::VERSION; - $VERSION =~ s/(\d\d)(\d\d)$/$1_$2/; + $VERSION = $mod_perl::VERSION_TRIPLET; open my $fh, 'Changes'; while (<$fh>) { Modified: perl/modperl/trunk/lib/mod_perl.pm Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/mod_perl.pm?view=diff&rev=124145&p1=perl/modperl/trunk/lib/mod_perl.pm&r1=124144&p2=perl/modperl/trunk/lib/mod_perl.pm&r2=124145 ============================================================================== --- perl/modperl/trunk/lib/mod_perl.pm (original) +++ perl/modperl/trunk/lib/mod_perl.pm Tue Jan 4 11:30:45 2005 @@ -18,7 +18,22 @@ use strict; BEGIN { - our $VERSION = "1.9920"; + our $VERSION = "1.999020"; + our $VERSION_TRIPLET; + + if ($VERSION =~ /(\d+)\.(\d\d\d)(\d+)/) { + my $v1 = $1; + my $v2 = int $2; + my $v3 = int($3 . "0" x (3 - length $3)); + $VERSION_TRIPLET = "$v1.$v2.$v3"; + } + else { + die "bad version: $VERSION"; + } + + # $VERSION : "1.099020" + # int $VERSION : 1.09902 + # $VERSION_TRIPLET: 1.99.20 } 1;