Hi,
I have tried the following test script under mod_perl using ModPerl::Registry handler:
use strict; use warnings;
my $m = do "/usr/local/intranet/site/modules/markets.ini"; use Data::Dumper; print Dumper $m;
The program prints "$VAR1 = undef;" if I run the program running mod_perl.
It prints fine the hash if I run it from command line.
The file "markets.ini" is:
{ 'var1' => 'value1', 'var2' => 'value2', 'var3' => 'value3', }
Do you have any idea what is wrong?
Thank you very much.
Teddy
perldoc -f do: [...] If "do" cannot read the file, it returns undef and sets $! to the error. If "do" can read the file but cannot compile it, it returns undef and sets an error message in [EMAIL PROTECTED] If the file is successfully compiled, "do" returns the value of the last expression evaluated.
You need to check that do() has succeeded and if not die with $! so you can see what's wrong.
Most likely your perms are wrong and the Apache server fails to read that file. Make sure that your files are r and your dirs are rx by the user you run the Apache under.
-- __________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com
