perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Geoffrey Young <ge...@modperlcookbook.org>
Subject Re: [WISHLIST] Be able to troubleshoot config file with perl -cx as before
Date Tue, 01 Feb 2005 15:20:43 GMT

> $ 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: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message