diff --git a/README.md b/README.md index e5a672cf9f6fd8eda2523cf272017c5d6de49649..b9d2b53bf9ff9452c6ff2da096171d1328c3e0b4 100644 --- a/README.md +++ b/README.md @@ -56,6 +56,7 @@ Using cpanm is recommended for an assisted and clean uninstall. * `cpanm MARC::Record` * `cpanm XML::XPath` * `cpanm DateTime::Format::ISO8601` + * `cpanm Win32::Console::ANSI` 11. All tests must process successfully and you are ready to go with Bag creation. ## Documentation diff --git a/bin/slubsipbuilderbagit.pl b/bin/slubsipbuilderbagit.pl index e6ff95e02d7bd491e20e6ad9e7a195b1b91032db..c4118536275aaada45cc15548493126b54b9f0ab 100644 --- a/bin/slubsipbuilderbagit.pl +++ b/bin/slubsipbuilderbagit.pl @@ -540,10 +540,13 @@ package main; #=============================================================================== BEGIN{ + if ($^O eq 'MSWin32') { + require Win32::Console::ANSI; + Win32::Console::ANSI->import(); + } ## no critic $INC{'SLUB/LZA/SIPBuilderBagIt.pm'} = 1; # needed because inlined module ## use critic - use if $^O eq 'MSWin32', Win32::Console::ANSI::; } return 1 if caller; # avoids main code running if module stuff is needed