Re: do is not working?

[prev] [thread] [next] [Date index for 2005/04/26]

Octavian Rasnita wrote:
> 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 $@.   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:stas@xxxxxx.xxx http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com