dougm       01/07/06 13:33:46

  Modified:    src/modules/perl Apache.xs
               t/docs   startup.pl
               .        Changes
  Log:
  add Apache::add_version_component() function
  
  Revision  Changes    Path
  1.125     +7 -0      modperl/src/modules/perl/Apache.xs
  
  Index: Apache.xs
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
  retrieving revision 1.124
  retrieving revision 1.125
  diff -u -r1.124 -r1.125
  --- Apache.xs 2001/07/06 16:09:53     1.124
  +++ Apache.xs 2001/07/06 20:33:35     1.125
  @@ -374,6 +374,13 @@
   BOOT:
       items = items; /*avoid warning*/ 
   
  +void
  +add_version_component(name)
  +    const char *name
  +
  +    CODE:
  +    ap_add_version_component(name);
  +
   const char *
   current_callback(r)
       Apache     r
  
  
  
  1.42      +4 -1      modperl/t/docs/startup.pl
  
  Index: startup.pl
  ===================================================================
  RCS file: /home/cvs/modperl/t/docs/startup.pl,v
  retrieving revision 1.41
  retrieving revision 1.42
  diff -u -r1.41 -r1.42
  --- startup.pl        2001/06/19 05:26:41     1.41
  +++ startup.pl        2001/07/06 20:33:41     1.42
  @@ -34,6 +34,9 @@
       die "Wrong Apache.pm loaded: $INC{'Apache.pm'}";
   }
   
  +my $version = defined $^V ? sprintf("v%vd", $^V) : $];
  +Apache::add_version_component("Perl/$version");
  +
   # BSD/OS 3.1 gets confused with some dynamically loaded code inside evals,
   # so make sure IO::File is loaded here, rather than later within an eval.
   # this should not harm any other platforms, since IO::File will be used
  @@ -66,7 +69,7 @@
   
   $Apache::DoInternalRedirect = 1;
   $Apache::ERRSV_CAN_BE_HTTP  = 1;
  -$Apache::Server::AddPerlVersion = 1;
  +#$Apache::Server::AddPerlVersion = 1;
   #warn "ServerStarting=$Apache::ServerStarting\n";
   #warn "ServerReStarting=$Apache::ServerReStarting\n";
   
  
  
  
  1.606     +2 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.605
  retrieving revision 1.606
  diff -u -r1.605 -r1.606
  --- Changes   2001/07/06 20:08:29     1.605
  +++ Changes   2001/07/06 20:33:44     1.606
  @@ -10,6 +10,8 @@
   
   =item 1.25_01-dev
   
  +add Apache::add_version_component() function
  +
   make sure Apache::ExtUtils can be found when building inside of the
   apache source tree, thanks to Jonathan Swartz for the spot
   
  
  
  

Reply via email to