perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Fred Moyer <f...@taperfriendlymusic.org>
Subject Re: MP 2.0.3 & Apache 2.2.3 -> auth tests fail
Date Thu, 08 Feb 2007 04:05:49 GMT
Philippe M. Chiasson wrote:
> Geoffrey Young wrote:
>>
>> we did a similar workaround for something else, but I forget what it
>> was.  svn history will know, however.
> 
> Or just have a look at this patch ;-)
> 
> Index: src/modules/perl/modperl_apache_compat.c
> ===================================================================
> --- src/modules/perl/modperl_apache_compat.c	(revision 504721)
> +++ src/modules/perl/modperl_apache_compat.c	(working copy)
 > @@ -27,3 +27,45 @@
 >  * and don't forget to insert comments explaining exactly
 >  * which httpd release allows us to remove the compat code
 >  */
 > +
 > +/* pre-APACHE_2.2.4 */
 > +#if ! AP_MODULE_MAGIC_AT_LEAST(20051115,4)

Mmmmm, mod_perl internals, yummy :)  Here is a doc patch I
s/(version)/($1|description|banner)/ ^W^W wrote up for it.


Index: docs/api/Apache2/ServerUtil.pod
===================================================================
--- docs/api/Apache2/ServerUtil.pod     (revision 500867)
+++ docs/api/Apache2/ServerUtil.pod     (working copy)
@@ -27,9 +27,11 @@
    @handlers = @{ $s->get_handlers('PerlChildExitHandler') || []};

    # server build and version info:
-  $when_built = Apache2::ServerUtil::get_server_built();
+  $when_built  = Apache2::ServerUtil::get_server_built();
+  $description = Apache2::ServerUtil::get_server_description();
    $version = Apache2::ServerUtil::get_server_version();
-
+  $banner  = Apache2::ServerUtil::get_server_banner();
+
    # ServerRoot value
    $server_root = Apache2::ServerUtil::server_root();

@@ -384,6 +386,56 @@



+=head2 C<get_server_banner>
+
+Get the server banner
+
+  $banner = Apache2::ServerUtil::get_server_banner();
+
+=over 4
+
+=item ret: C<$banner> ( string )
+
+The server banner
+
+=item since: 2.0.4
+
+=back
+
+
+
+
+
+
+
+
+
+=head2 C<get_server_description>
+
+Get the server description
+
+  $description = Apache2::ServerUtil::get_server_description();
+
+=over 4
+
+=item ret: C<$description> ( string )
+
+The server description
+
+=item since: 2.0.4
+
+=back
+
+
+
+
+
+
+
+
+
+
+
  =head2 C<group_id>

  Get the group id corresponding to the C<Group> directive in




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


Mime
View raw message