Re: Apache2

On Jul 27, 2004, at 10:48 PM, John Williams wrote:

> Finally 2 in ?: style, which are kinda ugly.  Suggestions for better 
> style
> appreciated.  This one avoids Apache->request:

Set a constant.

   use constant APACHE2 => $mod_perl::VERSION >= 1.99;

Then later...

@@ -581,7 +596,7 @@
      my $allowed_params = $class->allowed_params(%defaults, %params);

      if ( exists $allowed_params->{comp_root} and
-        my $req = $r || Apache->request )  # DocumentRoot is only 
available inside requests
+        my $req = $r || (APACHE2 ? undef : Apache->request) )  # 
DocumentRoot

Regards,

David