http://qs321.pair.com?node_id=479642

svetho has asked for the wisdom of the Perl Monks concerning the following question:

My dear monks

I'm really busting my brains over the following problem:

I've got a script with several modules, including one that reads in data from a configuration file. The module then stores the retrieved data in global variables, e.g. one that is declared with 'our $dataDirectory'. My log module needs to retrieve a path where to store its log file in, which is also retrieved by the Config.pm module. Here is the code:

package Logalizer::Log4Logalizer; use strict; use warnings; no warnings qw/ uninitialized /; use Carp; use Fcntl qw/ :DEFAULT :flock /; use Logalizer::Config; BEGIN { use Exporter(); our ($VERSION, @ISA, @EXPORT); $VERSION = 1.00; @ISA = qw/ Exporter /; @EXPORT = qw/ $verboseLevel &init &log /; } our $verboseLevel = 0; our $logName = "$Logalizer::Config::logDirectory/logalizer.log"; our $LOG = \*LOG; sub init { unless (-d $Logalizer::Config::logDirectory) { mkdir $Logalizer::Config::logDirectory, 0777 or croak "Can't mkdir $Logalizer::Config::logDirectory", ": $!"; } sysopen ($LOG, $logName, O_WRONLY | O_CREAT) or croak "Can't open $logName: $!"; }

...

I monitor $Logalizer::Config::logDirectory with carp()s and I get the correct path, let's say '/path/to/logfile'. I also monitor $logName, what I get, however, is '/logalizer.log', i.e. $Logalizer::Config::logDirectory doesn't seem to be interpolated in the above assignment. What's even more amazing is that the very same kind of assignment works in all the other modules. It's probably something obvious but I'm really at a loss here. Does anybody know what's going wrong and what I can do about it?

Any help will be greatly appreciated.

SveTho