1package Devel::AssertOS::EBCDIC; 2 3use Devel::CheckOS; 4use strict; 5use warnings; 6no warnings 'redefine'; 7 8our $VERSION = '1.0'; 9 10# list of OSes lifted from Module::Build 0.2808 11# 12sub matches { 13 return qw( 14 OS390 OS400 POSIXBC VMESA 15 ); 16} 17sub os_is { Devel::CheckOS::os_is(matches()); } 18Devel::CheckOS::die_unsupported() unless(os_is()); 19 20sub expn { 21 "The OS uses some variant of EBCDIC instead of ASCII." 22} 23 24=head1 COPYRIGHT and LICENCE 25 26Copyright 2010 David Cantrell 27 28This 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. 29 30=cut 31 321; 33