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.
