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.