vcs.maemo.org Git - dh-make-perl/blob - dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/inc/Devel/AssertOS/MicrosoftWindows.pm

   1 # $Id: MicrosoftWindows.pm,v 1.3 2007/09/28 14:35:08 drhyde Exp $
   2
   3 package Devel::AssertOS::MicrosoftWindows;
   4
   5 use Devel::CheckOS qw(die_unsupported);
   6
   7 $VERSION = '1.0';
   8
   9 sub os_is { $^O =~ /^(cygwin|MSWin32)$/ ? 1 : 0; }
  10
  11 die_unsupported() unless(os_is());
  12
  13 1;