Author: stas Date: Tue Jan 4 11:32:22 2005 New Revision: 124146 URL: http://svn.apache.org/viewcvs?view=rev&rev=124146 Log: until we figure out how to tell PAUSE index about versions of the autogenerated modules, create a fake module which lists all the autogenerated modules and their versions and include that in the distro.
Modified: perl/modperl/trunk/Changes perl/modperl/trunk/lib/ModPerl/Manifest.pm perl/modperl/trunk/lib/ModPerl/WrapXS.pm Modified: perl/modperl/trunk/Changes Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/Changes?view=diff&rev=124146&p1=perl/modperl/trunk/Changes&r1=124145&p2=perl/modperl/trunk/Changes&r2=124146 ============================================================================== --- perl/modperl/trunk/Changes (original) +++ perl/modperl/trunk/Changes Tue Jan 4 11:32:22 2005 @@ -12,6 +12,11 @@ =item 1.999_20-dev +until we figure out how to tell PAUSE index about versions of the +autogenerated modules, create a fake module which lists all the +autogenerated modules and their versions and include that in the +distro. [Stas] + 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: Modified: perl/modperl/trunk/lib/ModPerl/Manifest.pm Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/ModPerl/Manifest.pm?view=diff&rev=124146&p1=perl/modperl/trunk/lib/ModPerl/Manifest.pm&r1=124145&p2=perl/modperl/trunk/lib/ModPerl/Manifest.pm&r2=124146 ============================================================================== --- perl/modperl/trunk/lib/ModPerl/Manifest.pm (original) +++ perl/modperl/trunk/lib/ModPerl/Manifest.pm Tue Jan 4 11:32:22 2005 @@ -58,6 +58,9 @@ }}, $cwd); + # files to add which aren't under svn + push @files, qw(lib/ModPerl/DummyVersions.pm); + return @files; } Modified: perl/modperl/trunk/lib/ModPerl/WrapXS.pm Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/ModPerl/WrapXS.pm?view=diff&rev=124146&p1=perl/modperl/trunk/lib/ModPerl/WrapXS.pm&r1=124145&p2=perl/modperl/trunk/lib/ModPerl/WrapXS.pm&r2=124146 ============================================================================== --- perl/modperl/trunk/lib/ModPerl/WrapXS.pm (original) +++ perl/modperl/trunk/lib/ModPerl/WrapXS.pm Tue Jan 4 11:32:22 2005 @@ -1072,6 +1072,33 @@ close $fh; } +sub write_module_versions_file { + my $self = shift; + + my $file = catfile "lib", "ModPerl", "DummyVersions.pm"; + debug "creating $file"; + open my $fh, ">$file" or die "Can't open $file: $!"; + + my $noedit_warning = $self->ModPerl::Code::noedit_warning_hash(); + print $fh "$noedit_warning\n"; + + my @modules = keys %{ $self->{XS} }; + push @modules, qw(ModPerl::MethodLookup); + + my $len = 0; + for (@modules) { + $len = length $_ if length $_ > $len; + } + + require mod_perl; + $len += length '$::VERSION'; + for (@modules) { + my $ver = /^APR/ ? "0.900000" : "$mod_perl::VERSION"; + printf $fh "package %s;\n%-${len}s = %s;\n\n", + $_, '$'.$_."::VERSION", $ver; + } +} + sub generate { my $self = shift; @@ -1103,6 +1130,7 @@ } $self->write_lookup_method_file; + $self->write_module_versions_file; } #three .sym files are generated: