X-Git-Url: http://vcs.maemo.org/git/?a=blobdiff_plain;f=dev%2Fi386%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Finc%2FDevel%2FAssertOS%2FDEC.pm;fp=dev%2Fi386%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Finc%2FDevel%2FAssertOS%2FDEC.pm;h=71c449c09d00b424ca9d3e6f500954d855f6bd2d;hb=da95c414033799c3a62606f299c3c00b5c77ca11;hp=0000000000000000000000000000000000000000;hpb=2d38e14bacbb15b98e539843a40b3c52a225f493;p=dh-make-perl

diff --git a/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/inc/Devel/AssertOS/DEC.pm b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/inc/Devel/AssertOS/DEC.pm
new file mode 100644
index 0000000..71c449c
--- /dev/null
+++ b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/inc/Devel/AssertOS/DEC.pm
@@ -0,0 +1,13 @@
+# $Id: DEC.pm,v 1.2 2007/09/28 14:35:08 drhyde Exp $
+
+package Devel::AssertOS::DEC;
+
+use Devel::CheckOS qw(die_unsupported);
+
+$VERSION = '1.0';
+
+sub os_is { $^O =~ /^(VMS|dec_osf)$/ ? 1 : 0; }
+
+die_unsupported() unless(os_is());
+
+1;