> Nice, but see below
>> somescript.pl
>> -----------------------------------
>> #!/usr/bin/perl -wT
>> use strict;
>> use lib ".";
>> use lib_netContest;
>> use DBI;
>> use CGI (qw:standard:);
>>
>> use vars qw(%c $config_module $db_handle);
>>
>> my $r = shift;
>>
>> if (defined $r && $r->dir_config('ConfigMod')) {
>> $config_module = $r->dir_config('ConfigMod');
>> }
>> else {
>> use netContestConfig;
>> $config_module = "netContestConfig";
>> }
>
> it's rather unusual to see use() inside the conditional code,
> since use() is a compile time directive. meaning that netContestConfig
> will be always loaded no matter if $r->dir_config('ConfigMod') returns
> something or not.
>
> You probably want to s/use/require/. require() is a runtime directive.
> Or move 'use netContestConfig;" to the top, so it'll be clear that it
> always gets loaded.
Good point, thanks! I will require the module to save the overhead of
loading both configuration modules but using only one. Although the overhead
should not be too big, if the "used but unused" module is emtpy...
--
netendance GmbH
Sören Stuckenbrock
Fränkische Straße 38
30455 Hannover
Telefon: 49 (0) 511/4733773
Fax : 49 (0) 511/4733776
Mobil : 49 (0) 173/6000319
http://www.netendance.de
