perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-docs/src/api/mod_perl-2.0 Makefile.PL
Date Thu, 04 Oct 2001 10:53:20 GMT
stas        01/10/04 03:53:20

  Added:       src/api/mod_perl-2.0 Makefile.PL
  Log:
  - add the mod_perl-2.0 API docs Makefile.PL
  - modperl-2.0's Makefile.PL will automatically locate and install its API
    docs now.
  
  Revision  Changes    Path
  1.1                  modperl-docs/src/api/mod_perl-2.0/Makefile.PL
  
  Index: Makefile.PL
  ===================================================================
  
  require 5.6.1;
  
  use File::Find;
  use File::Spec;
  
  use ExtUtils::MakeMaker;
  
  my $rel_path = File::Spec->catfile(('..') x 4);
  
  WriteMakefile(
      NAME         => 'API',
      VERSION      => '0.01',
      PM           => get_pods(),
  );
  
  sub get_pods {
      my @pods = ();
      finddepth(sub{ push @pods, "$File::Find::dir/$_" if /\.pod$/ }, '.');
      return { map { s|^\./||; $_ => "\$(INST_LIB)/$_"} @pods };
  }
  
  package MY;
  
  # when called from top mod_perl dir, it gets ../blib for all pathes,
  # so we want to point it back to the top blib.
  sub MY::constants {
      my $self = shift;
      for (grep /^INST_/, keys %{ $self } ) {
          exists $self->{$_} && $self->{$_} =~ s/^\.\./$rel_path/;
      }
      $self->MM::constants;
  }
  
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org


Mime
View raw message