ELLIOTJS / Perl-Critic-1.101_003 / inc / Devel / AssertOS / Unix.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

              
# $Id: Unix.pm,v 1.4 2007/09/28 14:35:08 drhyde Exp $
package Devel::AssertOS::Unix;
use Devel::CheckOS qw(die_unsupported);
$VERSION = '1.0';
# list of OSes lifted from Module::Build 0.2808
#
sub os_is {
    $^O =~ /^(
        aix       |
        bsdos     |
        dgux      |
        dragonfly |
        dynixptx  |
        freebsd   |
        linux     |
        hpux      |
        irix      |
        darwin    |
        machten   |
        openbsd   |
        netbsd    |
        dec_osf   |
        svr4      |
        svr5      |
        sco_sv    |
        unicos    |
        unicosmk  |
        solaris   |
        sunos     |
        interix
    )$/x ? 1 : 0;
}
die_unsupported() unless(os_is());
1;