#!/usr/bin/perl
# Test the operating system is sane.

if ( $^O =~ /win/i )
{
    if ( ! -e "C://" )
    {
       # C: should exist upon a Windows box.
       exit 1;
    }
}
else
{
    if ( ! -e "/etc/passwd" )
    {
        # Missing password file on a unix machine is not sane.
        exit 1;
    }
}

exit 0;
