1package Devel::AssertOS::MSYS; 2 3use Devel::CheckOS; 4use strict; 5use warnings; 6no warnings 'redefine'; 7 8our $VERSION = '1.0'; 9 10sub os_is { $^O =~ /^msys2?$/i ? 1 : 0; } 11 12sub expn { 13join("\n", 14"The operating system is Microsoft Windows, but this perl", 15"is part of MSYS (or MSYS2), part of MinGW" 16) 17} 18 19Devel::CheckOS::die_unsupported() unless(os_is()); 20 21=head1 COPYRIGHT and LICENCE 22 23Copyright 2007 - 2020 David Cantrell 24 25This software is free-as-in-speech software, and may be used, distributed, and modified under the terms of either the GNU General Public Licence version 2 or the Artistic Licence. It's up to you which one you use. The full text of the licences can be found in the files GPL2.txt and ARTISTIC.txt, respectively. 26 27=cut 28 291; 30