#!/usr/bin/perl
# cpanel6 - scripts        Copyright(c) 1997-2003 cPanel, Inc.
#                                 All rights Reserved.
# copyright@cpanel.net      http://cpanel.net
# This code is subject to the cpanel license. Unauthorized copying is prohibited

if ($^O =~ /freebsd/i) { exit; }
#freebsd doesn't seem to get 755ed

my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
                      $atime,$mtime,$ctime,$blksize,$blocks)
                          = stat("/dev/ptmx");

my $humanmode = sprintf("%04o",$mode & 07777);;

if ($humanmode ne "0666") {
	print "/dev/ptmx has improper permissions\n";
	chmod(0666,"/dev/ptmx");
	print "Permissions on /dev/ptmx have been fixed\n";
}