> perl -Mblib t/01.legacy.t
# functionality w/ default globals
ok 1 - DirPerms default is 0777
ok 2 - CPRFComp default is false
ok 3 - RMTrgFil default is false
not ok 4 - dircopy() defaults as expected when target does not exist
#   Failed test 'dircopy() defaults as expected when target does not exist'
#   at t/01.legacy.t line 331.
#     Structures begin differing at:
#          $got->{C:/Users/sisyphus/AppData/Local/Temp/tNBiHmA0Z3/orig/data} = Does not exist
#     $expected->{C:/Users/sisyphus/AppData/Local/Temp/tNBiHmA0Z3/orig/data} = 'file'
Error open (<) on 'C:/Users/sisyphus/AppData/Local/Temp/tNBiHmA0Z3/new/C:/Users/sisyphus/AppData/Local/Temp/tNBiHmA0Z3/new/data': Invalid argument at t/01.legacy.t line 338.
# Tests were run but no plan was declared and done_testing() was not seen.
# Looks like your test exited with 22 just after 4.