Skip to content
Snippets Groups Projects
Commit 84236463 authored by bolkun's avatar bolkun
Browse files

Fixed color print under Win10 without warnings

parent a2cba5fd
No related branches found
No related tags found
No related merge requests found
...@@ -56,6 +56,7 @@ Using cpanm is recommended for an assisted and clean uninstall. ...@@ -56,6 +56,7 @@ Using cpanm is recommended for an assisted and clean uninstall.
* `cpanm MARC::Record` * `cpanm MARC::Record`
* `cpanm XML::XPath` * `cpanm XML::XPath`
* `cpanm DateTime::Format::ISO8601` * `cpanm DateTime::Format::ISO8601`
* `cpanm Win32::Console::ANSI`
11. All tests must process successfully and you are ready to go with Bag creation. 11. All tests must process successfully and you are ready to go with Bag creation.
## Documentation ## Documentation
......
...@@ -540,10 +540,13 @@ package main; ...@@ -540,10 +540,13 @@ package main;
#=============================================================================== #===============================================================================
BEGIN{ BEGIN{
if ($^O eq 'MSWin32') {
require Win32::Console::ANSI;
Win32::Console::ANSI->import();
}
## no critic ## no critic
$INC{'SLUB/LZA/SIPBuilderBagIt.pm'} = 1; # needed because inlined module $INC{'SLUB/LZA/SIPBuilderBagIt.pm'} = 1; # needed because inlined module
## use critic ## use critic
use if $^O eq 'MSWin32', Win32::Console::ANSI::;
} }
return 1 if caller; # avoids main code running if module stuff is needed return 1 if caller; # avoids main code running if module stuff is needed
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment