The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#
# This file is part of Debug-Fork-Tmux
#
# This software is Copyright (c) 2013 by Peter Vereshagin.
#
# This is free software, licensed under:
#
#   The (three-clause) BSD License
#
# $Id: MachTen.pm,v 1.4 2008/11/05 22:52:34 drhyde Exp $

package    #
    Devel::AssertOS::MachTen;

use Devel::CheckOS;

$VERSION = '1.1';

sub os_is { $^O eq 'machten' ? 1 : 0; }

sub expn {
    join( "\n",
        "You're using the Mach Ten BSD-compatible environment on top of",
        "Mac OS 'Classic' - ie, a pre-OS-X version of Mac OS.",
    );
}

Devel::CheckOS::die_unsupported() unless ( os_is() );

=head1 COPYRIGHT and LICENCE

Copyright 2007 - 2008 David Cantrell

This software is free-as-in-speech software, and may be used, distributed, and modified under the terms of either the GNU General Public Licence version 2 or the Artistic Licence. It's up to you which one you use. The full text of the licences can be found in the files GPL2.txt and ARTISTIC.txt, respectively.

=cut

1;