version 1.5, 2007/02/05 23:10:37 |
version 1.6, 2007/02/06 00:41:49 |
|
|
use warnings; |
use warnings; |
use Module::Build; |
use Module::Build; |
use File::Spec; |
use File::Spec; |
# $RedRiver: Build.PL,v 1.4 2007/02/05 21:36:42 andrew Exp $ |
# $RedRiver: Build.PL,v 1.5 2007/02/05 23:10:37 andrew Exp $ |
|
|
my $cfg_file = File::Spec->catfile('t', 'tests.cfg'); |
my $cfg_file = File::Spec->catfile('t', 'tests.cfg'); |
|
|
|
|
|
|
get_su_config(\%cfg); |
get_su_config(\%cfg); |
|
|
if (%cfg && open T,">$cfg_file") { |
if (open T,">$cfg_file") { |
while (my ($key, $value) = each %cfg) { |
while (my ($key, $value) = each %cfg) { |
print T $key, "\t", $value,"\n"; |
print T $key, "\t", $value,"\n"; |
} |
} |