+++ /dev/null
-# $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