Using Constants from seperate file

[allan juul]

hi

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, and if so what would be a more correct solution?
(i would prefer _not_ to have the constant file loaded once and for all in a 
startup.pl).


any suggestions appriciated
thanks
./allan