fixed config call

This commit is contained in:
TLINDEN
2015-04-14 20:19:14 +02:00
parent 26b631517b
commit 4a667582d7

View File

@@ -31,8 +31,6 @@ use IPC::Open3; # unix et al use this
use Test::More; use Test::More;
use IO::Select; use IO::Select;
use FileHandle; use FileHandle;
#use Config::General qw(ParseConfig);
#use Tie::IxHash;
use Data::Dumper; use Data::Dumper;
sub run3; sub run3;
@@ -46,7 +44,7 @@ if (! $config) {
die "usage: $0 <config>\n"; die "usage: $0 <config>\n";
} }
my %cfg = ParseConfig(-ConfigFile => $config, my %cfg = Config::General::ParseConfig(-ConfigFile => $config,
-InterPolateVars => 1, -InterPolateVars => 1,
-UseApacheInclude => 1, -UseApacheInclude => 1,
-Tie => "Tie::IxHash" ); -Tie => "Tie::IxHash" );