173 |
## write config |
## write config |
174 |
my $configpmdir = MM->catdir('lib', 'WAIT'); |
my $configpmdir = MM->catdir('lib', 'WAIT'); |
175 |
mkpath $configpmdir; |
mkpath $configpmdir; |
176 |
my $configpm = MM->catfile('lib', 'WAIT', 'Config.pm/' ); |
my $configpm = MM->catfile('lib', 'WAIT', 'Config.pm' ); |
177 |
|
|
178 |
open FH, "> $configpm" or die "Couldn't write open $configpm: $!\n"; |
open FH, "> $configpm" or die "Couldn't write open $configpm: $!\n"; |
179 |
print FH qq[\$WAIT::Config = \{\n]; |
print FH qq[\$WAIT::Config = \{\n]; |