Build all packages removed dependencies of libtest-exception-perl libtest-warn-perl...
[dh-make-perl] / dev / i386 / libperl-critic-perl / libperl-critic-perl-1.088 / inc / Devel / AssertOS / Unix.pm
diff --git a/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/inc/Devel/AssertOS/Unix.pm b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/inc/Devel/AssertOS/Unix.pm
new file mode 100644 (file)
index 0000000..0464953
--- /dev/null
@@ -0,0 +1,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;