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