Re: Using Constants from seperate file

Hi there,

On Sun, 28 Jul 2002, allan juul wrote:

> i wish to use use constants defined in a seperate file. my problem is, that 
> sometimes it works sometimes it doesn't. when failing, the error_log says 
> Bareword is not allowed so i guess it sometimes never loads my constants file 
> at all.
> 
> this is my basic approach:
> 
> 
> Package Foo:Bar;
> 
> use strict;
> 
> BEGIN {
>   require "Constants.lib";
> }
> 
> 
> sub handler {
>   my $r = shift;
>   ...
> 
>   my $sql = SQL_SELECT; # pull in constant value
>   ....
> 
> }
> 
> 
> is this a stupid approach,

Only under some circumstances.  Check out the mod_perl Guide.  If I
were debugging this I'd put a "PRINT STDERR 'something';" statement in
the BEGIN block.  Probably that will tell you what's happening...

73,
Ged.