git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/inc/Devel/AssertOS/Unix.pm

   1 # $Id: Unix.pm,v 1.4 2007/09/28 14:35:08 drhyde Exp $
   2
   3 package Devel::AssertOS::Unix;
   4
   5 use Devel::CheckOS qw(die_unsupported);
   6
   7 $VERSION = '1.0';
   8
   9 # list of OSes lifted from Module::Build 0.2808
  10 #
  11 sub os_is {
  12     $^O =~ /^(
  13         aix       |
  14         bsdos     |
  15         dgux      |
  16         dragonfly |
  17         dynixptx  |
  18         freebsd   |
  19         linux     |
  20         hpux      |
  21         irix      |
  22         darwin    |
  23         machten   |
  24         openbsd   |
  25         netbsd    |
  26         dec_osf   |
  27         svr4      |
  28         svr5      |
  29         sco_sv    |
  30         unicos    |
  31         unicosmk  |
  32         solaris   |
  33         sunos     |
  34         interix
  35     )$/x ? 1 : 0;
  36 }
  37
  38 die_unsupported() unless(os_is());
  39
  40 1;