X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Farm%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Finc%2FDevel%2FAssertOS%2FCygwin.pm;fp=dev%2Farm%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Finc%2FDevel%2FAssertOS%2FCygwin.pm;h=9814083d1ff99db2a46b86894e6c81604bf46776;hp=0000000000000000000000000000000000000000;hb=f477fa73365d491991707e7ed9217b48d6994551;hpb=da95c414033799c3a62606f299c3c00b5c77ca11

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