view release on metacpan or  search on metacpan

bin/scripts/moby-s-caching.pl  view on Meta::CPAN

	my (@files) = @_;
	my $mode = 0664;
	return chmod $mode, @files;
}

sub check_root {

	# assume that windows has no security preventing the copying of files
	return if (MSWIN);

	unless ( getpwuid($<) eq 'root' ) {
		print STDOUT <<EOT;

Hmmm - you are not running this as root. If you indicate any
system directories for the installation, such as '/usr/local/apache/', then
you may not have permission to install files there. If so, you should
cancel now with ^C, su to root, and restart.

EOT

		print STDOUT "Should I proceed? [n] ";

bin/scripts/moby-s-install.pl  view on Meta::CPAN

	die "Couldn't make MOBY config file readable only by root: $!"
	    if $?;

	# finished!
	return;
}

sub check_root {
	# assume that windows has no security preventing the copying of files
	return if MSWIN;
    unless (getpwuid($<) eq 'root') { 
	print STDOUT <<EOT;

Hmmm - you are not installing this as root. If you indicate any
system directories for the installation, such as '/usr/local', then
you do not have permission to install files there. If so, you should
cancel now with ^C, su to root, and restart.

If you will not specify any system directories, you can proceed.

EOT