[Melbourne-pm] Using strict...

[Tim Hunt]

Hi All;

I am updating *old* cgi-bin scripts to _use strict_.

The original author had a suite of config files A.cfg, B.cfg etc. that
were parsed at run time to declare variables.

for example:
# A.cfg

$foo = 'hello world';
$bar = 3;

##

#Main script:

# Read the config file and execute each line in it as a perl statement;
print "config_file is.. $config_file\n";
open(IN, $config_file) || &my_die("Can't open config file:
\"$config_file\": $!");

while (<IN>){
   eval(&untaint($_));
   if ($@){
      my_warn($@);
   }
}
close(IN);

print $foo;

############

Of course, with strict on, this does not work as the variables are all
confined  to the scope of the eval(config_line).

My options seem to be to declare all the variables in the main script
and carry on regardless, or implement a better config method. 

Discussion appreciated.

Cheers,
Tim.