test: add an useful print

This commit is contained in:
Gregory Hainaut 2016-01-23 18:37:22 +01:00
parent 8ff78378cd
commit e0ac3cfb12
1 changed files with 1 additions and 0 deletions

View File

@ -258,6 +258,7 @@ sub run_thread {
sub generate_cfg {
my $out_dir = shift;
print "Info: Copy dir $o_cfg to $out_dir\n" if $o_debug_me;
local $File::Copy::Recursive::RMTrgDir = 2;
dircopy($o_cfg, $out_dir) or die "Failed to copy directory: $!\n";