projects
/
dh-make-perl
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
dc1a6c5930a407650c7ac0fcfa5129b20b3dfac0
[dh-make-perl]
/
dev
/
i386
/
libperl-critic-perl
/
libperl-critic-perl-1.088
/
inc
/
Devel
/
AssertOS
/
MPEiX.pm
1
# $Id: MPEiX.pm,v 1.1 2007/09/27 16:41:25 drhyde Exp $
2
3
package Devel::AssertOS::MPEiX;
4
5
use Devel::CheckOS qw(die_unsupported);
6
7
$VERSION = '1.0';
8
9
sub os_is { $^O eq 'mpeix' ? 1 : 0; }
10
11
die_unsupported() unless(os_is());
12
13
1;