X-Git-Url: http://git.maemo.org/git/?a=blobdiff_plain;f=deb-src%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Finc%2FDevel%2FAssertOS%2FOS400.pm;fp=deb-src%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Finc%2FDevel%2FAssertOS%2FOS400.pm;h=2869dba86ad65ca7a97244f68820f18aedbcffe6;hb=9235c81891f90483b524a2ccb1f8c15689c8dfd3;hp=0000000000000000000000000000000000000000;hpb=3b84a260e354a1cd3480729daaedbeeab0eae136;p=pkg-perl

diff --git a/deb-src/libperl-critic-perl/libperl-critic-perl-1.088/inc/Devel/AssertOS/OS400.pm b/deb-src/libperl-critic-perl/libperl-critic-perl-1.088/inc/Devel/AssertOS/OS400.pm
new file mode 100644
index 0000000..2869dba
--- /dev/null
+++ b/deb-src/libperl-critic-perl/libperl-critic-perl-1.088/inc/Devel/AssertOS/OS400.pm
@@ -0,0 +1,13 @@
+# $Id: OS400.pm,v 1.1 2007/09/27 16:41:25 drhyde Exp $
+
+package Devel::AssertOS::OS400;
+
+use Devel::CheckOS qw(die_unsupported);
+
+$VERSION = '1.0';
+
+sub os_is { $^O eq 'os400' ? 1 : 0; }
+
+die_unsupported() unless(os_is());
+
+1;
\ No newline at end of file