do is not working?

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

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