Re: [WISHLIST] Be able to troubleshoot config file with perl -cx as before

[Geoffrey Young]

> $ perl -e 'use strict; use Apache2; use Apache::compat;'
> Bareword "Apache::ServerUtil::server_root" not allowed while "strict
> subs" in use at /usr/local/lib/perl/5.6.1/Apache2/Apache/compat.pm
> line 329.
> BEGIN not safe after errors

try this

--Geoff

Index: lib/Apache/compat.pm
===================================================================
--- lib/Apache/compat.pm        (revision 149378)
+++ lib/Apache/compat.pm        (working copy)
@@ -309,7 +309,7 @@

 package Apache::Server;
 # XXX: is that good enough? see modperl/src/modules/perl/mod_perl.c:367
-our $CWD = Apache::ServerUtil::server_root;
+our $CWD = Apache::ServerUtil::server_root();

 our $AddPerlVersion = 1;

@@ -326,7 +326,7 @@
          return File::Spec->catfile(@_);
     }
     else {
-        File::Spec->catfile(Apache::ServerUtil::server_root, @_);
+        File::Spec->catfile(Apache::ServerUtil::server_root(), @_);
     }
 }


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]