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.