Result:
found more than 1183 distributions - search limited to the first 2001 files matching your query ( run in 3.134 )


Games-Risk

 view release on metacpan or  search on metacpan

lib/Games/Risk/Controller.pm  view on Meta::CPAN

    $dst->set_armies( $nb );
    $dst->set_owner( $src->owner );

    # update the gui
    $h->send_to_all('chnum', $src);
    $h->send_to_all('chown', $dst, $looser);

    # check if previous $dst owner has lost.
    if ( scalar($looser->countries) == 0 ) {
        # omg! one player left
        $h->player_lost($looser);

lib/Games/Risk/Controller.pm  view on Meta::CPAN

        push @players, $player;

        # store new owner & place one army to start with
        $country->set_owner($player);
        $country->set_armies(1);
        $h->send_to_all('chown', $country);
    }

    # go on to the next phase
    K->yield( '_countries_assigned' );
}

 view all matches for this distribution


Gentoo-Perl-Distmap

 view release on metacpan or  search on metacpan

corpus/distmap.json  view on Meta::CPAN

            "0.40.0",
            "0.50.0"
         ]
      }
   ],
   "Lchown" : [
      {
         "category" : "dev-perl",
         "package" : "Lchown",
         "repository" : "gentoo",
         "versions_gentoo" : [
            "1.10.0"
         ]
      }

 view all matches for this distribution


Gentoo-Probe

 view release on metacpan or  search on metacpan

t/sandbox/usr/portage/app-shells/sash/files/sash-3.4-gentoo.diff  view on Meta::CPAN

-		"Change the protection of some files",
-		"mode fileName ..."
-	},
-
-	{
-		"-chown",	do_chown,	3,	INFINITE_ARGS,
-		"Change the owner id of some files",
-		"uid fileName ..."
-	},
-
-	{

t/sandbox/usr/portage/app-shells/sash/files/sash-3.4-gentoo.diff  view on Meta::CPAN

-extern	void	do_rm(int argc, const char ** argv);
-extern	void	do_chmod(int argc, const char ** argv);
-extern	void	do_mkdir(int argc, const char ** argv);
-extern	void	do_rmdir(int argc, const char ** argv);
-extern	void	do_mknod(int argc, const char ** argv);
-extern	void	do_chown(int argc, const char ** argv);
-extern	void	do_chgrp(int argc, const char ** argv);
-extern	void	do_sum(int argc, const char ** argv);
-extern	void	do_sync(int argc, const char ** argv);
+extern	void	do_where(int argc, const char ** argv);
 extern	void	do_printenv(int argc, const char ** argv);

 view all matches for this distribution


GetWeb

 view release on metacpan or  search on metacpan

MailBot/UI/Spool.pm  view on Meta::CPAN

	{
	    print SPOOL_NEW $line;
	}
	close(SPOOL_NEW) or die "could not write to $spoolNew: $!";
	# chmod($mode,$spoolNew) or die "could not chmod $spoolNew: $!";
	# chown($uid,$gid,$spoolNew) or die "could not chown $spoolNew: $!";
	rename($spoolNew,$spool) or
	    die "could not rename $spool to $spoolNew: $!";
    }
    else
    {

 view all matches for this distribution


Getopt-Function

 view release on metacpan or  search on metacpan

make-rpm-command  view on Meta::CPAN

make clean
perl Makefile.PL
ID=`id -u`;
if [ x"$ID" != x"0" ]
then
	MAKERPMOPTS="$MAKERPMOPTS --nochown"
        export MAKERPMOPTS
fi

DISTFILE=Getopt-Function-0.017.tar.gz
rm $DISTFILE

 view all matches for this distribution


GlusterFS-GFAPI-FFI

 view release on metacpan or  search on metacpan

lib/GlusterFS/GFAPI/FFI.pm  view on Meta::CPAN

$FFI->attach(glfs_seekdir => ['glfs_fd_t', 'long'] => 'long');
$FFI->attach(glfs_closedir => ['glfs_fd_t'] => 'int');
$FFI->attach(glfs_statvfs => ['glfs_t', 'string', 'Statvfs'], => 'int');
$FFI->attach(glfs_chmod => ['glfs_t', 'string', 'mode_t'] => 'int');
$FFI->attach(glfs_fchmod => ['glfs_fd_t', 'mode_t'] => 'int');
$FFI->attach(glfs_chown => ['glfs_t', 'string', 'uid_t', 'gid_t'] => 'int');
$FFI->attach(glfs_lchown => ['glfs_t', 'string', 'uid_t', 'gid_t'] => 'int');
$FFI->attach(glfs_fchown => ['glfs_fd_t', 'uid_t', 'gid_t'] => 'int');
$FFI->attach(glfs_utimens => ['glfs_t', 'string', 'Timespecs'] => 'int');
$FFI->attach(glfs_lutimens => ['glfs_t', 'string', 'Timespecs'] => 'int');
$FFI->attach(glfs_futimens => ['glfs_fd_t', 'Timespecs'] => 'int');
$FFI->attach(glfs_getxattr => ['glfs_t', 'string', 'string', 'opaque', 'size_t'] => 'ssize_t');
$FFI->attach(glfs_lgetxattr => ['glfs_t', 'string', 'string', 'opaque', 'size_t'] => 'ssize_t');

lib/GlusterFS/GFAPI/FFI.pm  view on Meta::CPAN


=head2 C<glfs_fchmod($fd, $mode)>

    $retval = glfs_fchmod($fd, $mode);

=head2 C<glfs_chown($fs, $path, $uid, $gid)>

    $retval = glfs_chown($fs, $path, $uid, $gid);

=head2 C<glfs_lchown($fs, $path, $uid, $gid)>

    $retval = glfs_lchown($fs, $path, $uid, $gid);

=head2 C<glfs_fchown($fd, $uid, $gid)>

    $retval = glfs_fchown($fd, $uid, $gid);

=head2 C<glfs_utimens($fs, $path, $timespecs)>

    $retval = glfs_utimens($fs, $path, $timespecs);

 view all matches for this distribution


Goo

 view release on metacpan or  search on metacpan

lib/Goo/Thing/pm/Perl5.pm  view on Meta::CPAN

###############################################################################

use strict; 

# lists functions not reserved words
my @functions = qw(abs accept alarm atan2 binmode binmode bless caller chdir chmod chomp chomp chown chr chroot close closedir connect continue close crypt data dbmclose dbmopen defined delete die do dump each endgrent endhostent endnetent endprotoen...

# common functions and reserved words
my @common = qw(abs accept binmode bless caller chdir chmod chomp chown chr chroot close continue defined delete 
die do each else eval exec exists exit flock for foreach fork format glob gmtime goto grep hex if import index int ioctl join keys last lc lcfirst length link listen local localtime log map mkdir my next oct open ord pack package pipe pop pos print p...

my %builtins = map { $_ => 1 } @functions; 

# hold a hash of common reserved words

 view all matches for this distribution


Google-ProtocolBuffers-Dynamic

 view release on metacpan or  search on metacpan

src/ppport.h  view on Meta::CPAN

KEY_chdir|5.003007||Viu
KEY_CHECK|5.006000||Viu
KEY_chmod|5.003007||Viu
KEY_chomp|5.003007||Viu
KEY_chop|5.003007||Viu
KEY_chown|5.003007||Viu
KEY_chr|5.003007||Viu
KEY_chroot|5.003007||Viu
KEY_close|5.003007||Viu
KEY_closedir|5.003007||Viu
KEY_cmp|5.003007||Viu

src/ppport.h  view on Meta::CPAN

PERL_LANGINFO_H|5.027004||Viu
PERL_LAST_5_18_0_INTERP_MEMBER|5.017009||Viu
Perl_ldexp|5.021003|5.021003|n
PerlLIO_access|5.005000||Viu
PerlLIO_chmod|5.005000||Viu
PerlLIO_chown|5.005000||Viu
PerlLIO_chsize|5.005000||Viu
PerlLIO_close|5.005000||Viu
PerlLIO_dup2|5.005000||Viu
PerlLIO_dup2_cloexec|5.027008||Viu
PerlLIO_dup|5.005000||Viu

 view all matches for this distribution


Greek

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  - \P{PROP} means literal P{PROP}
  - \X means literal X
  - support POSIX-style character classes
  - modifier /a /d /l /u, and /aa of regexp makes die
  - use 5.12.0; --> use 5.12.0; no strict qw(refs);
  - remove test 201_kanji.t,202_kanji.t,203_kanji.t,204_kanji.t,205_glob.t,210_chmod.t,211_chown.t,212_dbmopen.t,214_glob.t,216_open.t,217_qx.t,218_rename.t,221_sysopen.t,222_system.t,223_truncate.t,225_utime.t,226_chdir.t,227_chmod.t,228_chown.t,229...
  - created by INABA Hitoshi

0.75  2011-06-05 00:00:00
  - remove Esjis::binmode and Esjis::open (it's a bad idea)
  - created by INABA Hitoshi

 view all matches for this distribution


Guacamole

 view release on metacpan or  search on metacpan

lib/Guacamole.pm  view on Meta::CPAN

OpKeywordCaller           ~ 'caller'
OpKeywordChdir            ~ 'chdir'
OpKeywordChmod            ~ 'chmod'
OpKeywordChomp            ~ 'chomp'
OpKeywordChop             ~ 'chop'
OpKeywordChown            ~ 'chown'
OpKeywordChr              ~ 'chr'
OpKeywordChroot           ~ 'chroot'
OpKeywordClose            ~ 'close'
OpKeywordClosedir         ~ 'closedir'
OpKeywordConnect          ~ 'connect'

 view all matches for this distribution


Guile

 view release on metacpan or  search on metacpan

Guile.pm  view on Meta::CPAN

   char_upper_case_p($;$)
   char_whitespace_p($;$)
   chars2byvect($;$$)
   chdir($;$)
   chmod($;$$)
   chown($;$$$)
   chroot($;$)
   class_direct_methods($;$)
   class_direct_slots($;$)
   class_direct_subclasses($;$)
   class_direct_supers($;$)

 view all matches for this distribution


Gzip-Faster

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

KEY_chdir|5.003007||Viu
KEY_CHECK|5.006000||Viu
KEY_chmod|5.003007||Viu
KEY_chomp|5.003007||Viu
KEY_chop|5.003007||Viu
KEY_chown|5.003007||Viu
KEY_chr|5.003007||Viu
KEY_chroot|5.003007||Viu
KEY_close|5.003007||Viu
KEY_closedir|5.003007||Viu
KEY_cmp|5.003007||Viu

ppport.h  view on Meta::CPAN

PERL_LANGINFO_H|5.027004||Viu
PERL_LAST_5_18_0_INTERP_MEMBER|5.017009||Viu
Perl_ldexp|5.021003||Viu
PerlLIO_access|5.005000||Viu
PerlLIO_chmod|5.005000||Viu
PerlLIO_chown|5.005000||Viu
PerlLIO_chsize|5.005000||Viu
PerlLIO_close|5.005000||Viu
PerlLIO_dup2|5.005000||Viu
PerlLIO_dup2_cloexec|5.027008||Viu
PerlLIO_dup|5.005000||Viu

 view all matches for this distribution


Gzip-Libdeflate

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

KEY_chdir|5.003007||Viu
KEY_CHECK|5.006000||Viu
KEY_chmod|5.003007||Viu
KEY_chomp|5.003007||Viu
KEY_chop|5.003007||Viu
KEY_chown|5.003007||Viu
KEY_chr|5.003007||Viu
KEY_chroot|5.003007||Viu
KEY_close|5.003007||Viu
KEY_closedir|5.003007||Viu
KEY_cmp|5.003007||Viu

ppport.h  view on Meta::CPAN

PERL_LANGINFO_H|5.027004||Viu
PERL_LAST_5_18_0_INTERP_MEMBER|5.017009||Viu
Perl_ldexp|5.021003||Viu
PerlLIO_access|5.005000||Viu
PerlLIO_chmod|5.005000||Viu
PerlLIO_chown|5.005000||Viu
PerlLIO_chsize|5.005000||Viu
PerlLIO_close|5.005000||Viu
PerlLIO_dup2|5.005000||Viu
PerlLIO_dup2_cloexec|5.027008||Viu
PerlLIO_dup|5.005000||Viu

 view all matches for this distribution


HADaemon-Control

 view release on metacpan or  search on metacpan

lib/HADaemon/Control.pm  view on Meta::CPAN


    # some commands, such as help|foregournd, don't need loggin
    # so do lazy initialization
    if (not exists $self->{log_fh}) {
        open(my $fh, '>>', $self->log_file) or die "failed to open logfile '" . $self->log_file . "': $!\n";
        chown(($self->uid // -1), ($self->gid // -1), $fh) if $self->uid || $self->gid;
        $self->{log_fh} = $fh;
    }

    if ($self->{log_fh} && defined fileno($self->{log_fh})) {
        my $now = Time::HiRes::time();

 view all matches for this distribution


HTML-Bricks

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN


bricks_root_install:
	\@echo Installing files in bricks_root to $$rconf{bricks_root}
	\@\$(MKPATH) $$rconf{bricks_root}
	\@\$(CP) -r bricks_root/* $$rconf{bricks_root}
	\@chown $$rconf{www_user} $$rconf{bricks_root}/data
	\@chgrp $$rconf{www_group} $$rconf{bricks_root}/data
	\@chown $$rconf{www_user} $$rconf{bricks_root}/data/*
	\@chgrp $$rconf{www_group} $$rconf{bricks_root}/data/*
	\@chown $$rconf{www_user} $$rconf{bricks_root}/data/weblog/*
	\@chgrp $$rconf{www_group} $$rconf{bricks_root}/data/weblog/*
	\@chown $$rconf{www_user} $$rconf{bricks_root}/data/weblog/bricks\\ blog/*
	\@chgrp $$rconf{www_group} $$rconf{bricks_root}/data/weblog/bricks\\ blog/*
	\@chown $$rconf{www_user} $$rconf{bricks_root}/user
	\@chgrp $$rconf{www_group} $$rconf{bricks_root}/user
	\@chown $$rconf{www_user} $$rconf{bricks_root}/user/bricks_welcome.mc
	\@chgrp $$rconf{www_group} $$rconf{bricks_root}/user/bricks_welcome.mc

www_root_install:
	\@echo Installing files in www_root to $$rconf{document_root}
	\@\$(CP) -r www_root/bricks* $$rconf{document_root}

 view all matches for this distribution


HTML-EP-Explorer

 view release on metacpan or  search on metacpan

lib/HTML/EP/Explorer/Install.pm  view on Meta::CPAN

    if (!-f $config_path) {
	my $uid = getpwnam($cfg->{'httpd_user'});
	print "Creating empty config file $config_path, owned by $uid.\n";
	(open(FILE, ">>$config_path") and close(FILE))
	    or die "Failed to create $config_path: $!";
	chown($uid, 0, $config_path)
	    or die "Cannot change ownership of $config_path to $uid,0: $!";
	chmod(0600, $config_path)
	    or die "Cannot change permissions of $config_path: $!";
    }
    my $cache_path = File::Spec->catdir($cfg->{'html_base_dir'}, "status");
    if (!-d $cache_path) {
	my $uid = getpwnam($cfg->{'httpd_user'});
	print "Creating empty status directory $cache_path, owned by $uid.\n";
	(mkdir $cache_path, 0700)
	    or die "Failed to create status directory $cache_path: $!";
	chown($uid, 0, $cache_path)
	    or die "Cannot change ownership of $cache_path to $uid,0: $!";
    }
}


 view all matches for this distribution


HTML-EP-Glimpse

 view release on metacpan or  search on metacpan

lib/HTML/EP/Glimpse/Install.pm  view on Meta::CPAN

	print STDERR "Warning: Directory $vardir is not writable and readable",
	    " by the owner" unless ($mode & 0700) == 0700;
    } else {
	print "Creating directory $vardir, mode 0700, owned by $cfg->{'httpd_user'}.\n";
	File::Path::mkpath($vardir, 0, 0700);
	chown $uid, $gid, $vardir;
    }
}


sub PathOf {

 view all matches for this distribution


HTML-EP

 view release on metacpan or  search on metacpan

examples/admin/README  view on Meta::CPAN


  - Move the script "usersModified" to /usr/local/bin and make it
    suid root:

	mv usersModified /usr/local/bin
	chown root /usr/local/bin/usersModified
	chgrp root /usr/local/bin/usersModified
	chmod 4755 /usr/local/bin/usersModified

  - That's it!

 view all matches for this distribution


HTML-Mason-ApacheHandler2

 view release on metacpan or  search on metacpan

lib/HTML/Mason/ApacheHandler2.pm  view on Meta::CPAN

    }

    # If we're running as superuser, change file ownership to http user & group
    if (!($> || $<) && $self->interp->files_written)
    {
	chown getpwnam( Apache->server->dir_config( '_MasonUser' ) ),
	getgrnam( Apache->server->dir_config( '_MasonGroup' ) ),
	$self->interp->files_written
	    or system_error( "Can't change ownership of files written by interp object: $!\n" );
    }

 view all matches for this distribution


HTML-Mason

 view release on metacpan or  search on metacpan

lib/HTML/Mason/ApacheHandler.pm  view on Meta::CPAN

    }

    # If we're running as superuser, change file ownership to http user & group
    if (!($> || $<) && $self->interp->files_written)
    {
        chown $self->get_uid_gid, $self->interp->files_written
            or system_error( "Can't change ownership of files written by interp object: $!\n" );
    }

    $self->_initialize;
    return $self;

 view all matches for this distribution


HTML-MasonX-ApacheLikePlackHandler

 view release on metacpan or  search on metacpan

lib/HTML/MasonX/ApacheLikePlackHandler.pm  view on Meta::CPAN

    }

    # If we're running as superuser, change file ownership to http user & group
    if (!($> || $<) && $self->interp->files_written)
    {
        chown $self->get_uid_gid, $self->interp->files_written
            or system_error( "Can't change ownership of files written by interp object: $!\n" );
    }

    $self->_initialize;
    return $self;

 view all matches for this distribution


HTML-Merge

 view release on metacpan or  search on metacpan

mergecreateinstance  view on Meta::CPAN

$param{'SCRIPT'} = $script;

foreach (qw(template cache logs pl)) 
{
	mkdir "$cgi_bin/$_", 0755;
	chown $uid, $gid, "$cgi_bin/$_";
}

my ($choice, $def, $cd, $c2);

if (-f "$cgi_bin/$script") 

mergecreateinstance  view on Meta::CPAN

	ExtUtils::Install::install({"$private/private" => "$cgi_bin/private"}, 1, 0);
	ExtUtils::Install::install({"$private/public" => "$cgi_bin/public"}, 1, 0);
	unlink "$cgi_bin/$script";
	File::Copy::copy($merge, "$cgi_bin/$script");
	chmod 0755, "$cgi_bin/$script";
	chown $uid, $gid, "$cgi_bin/$script";
} 
elsif ($choice eq 'L') 
{
	user_msg("Link\n",'None');
	$allow_symlink = 'FollowSymLinks';

mergecreateinstance  view on Meta::CPAN

	&scrape($cgi_bin);

	symlink	"$private/private", "$cgi_bin/private" ||
		die "Could not link $private/private to $cgi_bin/private: $!";
	chmod 0755, "$cgi_bin/private";
	chown $uid, $gid, "$cgi_bin/private";

	symlink	"$private/public", "$cgi_bin/public" ||
		die "Could not link $private/public to $cgi_bin/public: $!";
	chmod 0755, "$cgi_bin/public";
	chown $uid, $gid, "$cgi_bin/public";

	unlink "$cgi_bin/$script";
	symlink $merge, "$cgi_bin/$script" || 
		die "Could not link $merge to $cgi_bin/$script: $!";
	chmod 0755, "$cgi_bin/$script";
	chown $uid, $gid, "$cgi_bin/$script";
} 
elsif ($choice eq 'N') 
{
	user_msg("None\n",'None');
	$allow_symlink = '';

mergecreateinstance  view on Meta::CPAN


push(@files,'merge.db') if $is_internal;

foreach (@files) 
{
	chown $uid, $gid, "$cgi_bin/$_" || Log('FATAL',
		 "Could not change ownership on $cgi_bin/$_ to $user.$group: $!");
}

user_msg("

 view all matches for this distribution


HTML-WebMake

 view release on metacpan or  search on metacpan

doc/allinone.html  view on Meta::CPAN

  editable.
  
</p>
<p>
  Note that <code><a href="cgistart.html">webmake.cgi</a></code> runs with the web server's username and password,
  so you may have to <code>chown</code> or <code>chmod</code> files for it to work.
  
</p>
 <a name="Supporting_Metadata_On_Media"><h1>Supporting Metadata On Media</h1></a><p>
  If you attach <a href="metadata.html">metadata</a> (e.g. titles) to images or other media items using
  <code><a href="cgistart.html">webmake.cgi</a></code>, it will write that <a href="metadata.html">metadata</a> to a file called <code><a href="metadata.html">metadata</a>.xml</code>

doc/allinone.html  view on Meta::CPAN

<p>
  <pre><!--etsafe-->
  
	mkdir ~apache/.ssh
	chmod 700 ~apache/.ssh
	chown apache ~apache/.ssh
	su apache -s/bin/sh -c 'ssh-keygen -P "" -N ""'
<!--/etsafe-->
  </pre>
</p>
<p>

doc/allinone.html  view on Meta::CPAN

  
</p>
<p>
  <pre><!--etsafe-->
  
	chown -R apache /var/www/html/jmason.org
<!--/etsafe-->
  </pre>
</p>
<p>
  so that <a href="cgistart.html">webmake.cgi</a> can read and write the files. (You could also chgrp them

 view all matches for this distribution


HTTPD-ADS

 view release on metacpan or  search on metacpan

scripts/DefenseServer.pl  view on Meta::CPAN

}
my $message;
my @parts;

my $listen = IO::Socket::UNIX->new(Local=>$fifo, Listen=>0) || die "$!"; #per io_unix.t of IO::Socket::UNIX
my $rv = chown((getpwnam($target_user))[2,3],$fifo); #adapted from p691 of _Programming Perl_,3rd ed.
print "socket set blocking, was ".$listen->blocking(1);	#1 is TRUE
#my $oldtimeout = $listen->timeout(3600);
#print "\ntimeout set, was ".(defined $oldtimeout? $oldtimeout: "undefined\n");
my @ipaddr;
my $sock;

 view all matches for this distribution


HTTPD-User-Manage

 view release on metacpan or  search on metacpan

user_manage.html  view on Meta::CPAN

a specially-designated "web administrator" account, for example "www".
Now, running as root, change the ownership of <cite>user_manage</cite>
to "www" and set its "s" bit:

<blockquote><pre>
# <b>chown www user_manage</b>
# <b>chmod u+s user_manage</b>
# <b>ls -l user_manage</b>
-rwsr-xr-x   1 www   users      18928 Jan 14 03:47 user_manage*
</pre></blockquote>

 view all matches for this distribution


Hadoop-HDFS-Command

 view release on metacpan or  search on metacpan

lib/Hadoop/HDFS/Command.pm  view on Meta::CPAN


    # just a confirmation message
    return @response
}

sub _dfs_chown {
    my $self    = shift;
    my $options = shift;
    my @params  = @_;
    my @flags   = qw( p );
    my($arg, $paths) = $self->_parse_options(

lib/Hadoop/HDFS/Command.pm  view on Meta::CPAN

                            },
                        );
    my @response = $self->_capture(
        $options,
        $self->cmd_hdfs,
        qw( dfs -chown ),
        ( map { '-' . $_ } grep { $arg->{ $_ } } @flags ),
        @{ $paths },
    );

    # just a confirmation message

lib/Hadoop/HDFS/Command.pm  view on Meta::CPAN


The C<@subcommand_args> can have these defined: C<-R>

    $hdfs->dfs( chmod => @subcommand_args, $mode, $path );

=head3 chown

The C<@subcommand_args> can have these defined: C<-R>

    $hdfs->dfs( chown => @subcommand_args, $OWNERCOLONGROUP, $path );

=head3 get

The C<@subcommand_args> can have these defined: C<-p>, C<-ignoreCrc>, C<-crc>

 view all matches for this distribution


Hash-SharedMem

 view release on metacpan or  search on metacpan

lib/Hash/SharedMem.xs  view on Meta::CPAN

	dir_make_data_filename(filename, new_file_id);
	new_fd = dirref_rel_open_cloexec(sh->u.live.dir, filename,
			O_RDWR|O_CREAT|O_EXCL, 0);
	if(unlikely(new_fd == -1)) shash_error_errno(sh, action);
	new_ulr = unlinkfile_save(sh->u.live.dir, filename);
	if(unlikely(fchown(new_fd, -1, statbuf.st_gid) == -1) &&
			unlikely(errno != EPERM))
		shash_error_errno(sh, action);
	if(unlikely(fchmod(new_fd, statbuf.st_mode &
			(S_IRUSR|S_IWUSR|S_IRGRP|S_IWGRP|S_IROTH|S_IWOTH))
			== -1))
		shash_error_errno(sh, action);
	if(unlikely(fchown(new_fd, statbuf.st_uid, -1) == -1) &&
			unlikely(errno != EPERM))
		shash_error_errno(sh, action);
	new_fdr = closefd_save(new_fd);
	if(unlikely(ftruncate(new_fd, new_sz) == -1)) {
		/*

 view all matches for this distribution


Heap-PQ

 view release on metacpan or  search on metacpan

include/ppport.h  view on Meta::CPAN

KEY_chdir|5.003007||Viu
KEY_CHECK|5.006000||Viu
KEY_chmod|5.003007||Viu
KEY_chomp|5.003007||Viu
KEY_chop|5.003007||Viu
KEY_chown|5.003007||Viu
KEY_chr|5.003007||Viu
KEY_chroot|5.003007||Viu
KEY_close|5.003007||Viu
KEY_closedir|5.003007||Viu
KEY_cmp|5.003007||Viu

include/ppport.h  view on Meta::CPAN

PERL_LANGINFO_H|5.027004||Viu
PERL_LAST_5_18_0_INTERP_MEMBER|5.017009||Viu
Perl_ldexp|5.021003|5.021003|n
PerlLIO_access|5.005000||Viu
PerlLIO_chmod|5.005000||Viu
PerlLIO_chown|5.005000||Viu
PerlLIO_chsize|5.005000||Viu
PerlLIO_close|5.005000||Viu
PerlLIO_dup2|5.005000||Viu
PerlLIO_dup2_cloexec|5.027008||Viu
PerlLIO_dup|5.005000||Viu

 view all matches for this distribution


Helios

 view release on metacpan or  search on metacpan

INSTALL  view on Meta::CPAN

Once the Helios base libraries are installed, you can optionally install the 
job submission CGI in your host's cgi-bin directory to support job submission 
via HTTP.  If your cgi-bin directory is, say, /usr/local/apache/cgi-bin:

    cp cgi-bin/submitJob.pl /usr/local/apache/cgi-bin/
 	chown root.root /usr/local/apache/cgi-bin/submitJob.pl
	chmod a+rx /usr/local/apache/cgi-bin/submitJob.pl
    
should put submitJob.pl in the right place and set the proper ownership and 
permissions.

 view all matches for this distribution


HiPi

 view release on metacpan or  search on metacpan

mylib/include/ppport.h  view on Meta::CPAN

KEY_chdir|5.003007||Viu
KEY_CHECK|5.006000||Viu
KEY_chmod|5.003007||Viu
KEY_chomp|5.003007||Viu
KEY_chop|5.003007||Viu
KEY_chown|5.003007||Viu
KEY_chr|5.003007||Viu
KEY_chroot|5.003007||Viu
KEY_close|5.003007||Viu
KEY_closedir|5.003007||Viu
KEY_cmp|5.003007||Viu

mylib/include/ppport.h  view on Meta::CPAN

PERL_LANGINFO_H|5.027004||Viu
PERL_LAST_5_18_0_INTERP_MEMBER|5.017009||Viu
Perl_ldexp|5.021003|5.021003|n
PerlLIO_access|5.005000||Viu
PerlLIO_chmod|5.005000||Viu
PerlLIO_chown|5.005000||Viu
PerlLIO_chsize|5.005000||Viu
PerlLIO_close|5.005000||Viu
PerlLIO_dup2|5.005000||Viu
PerlLIO_dup2_cloexec|5.027008||Viu
PerlLIO_dup|5.005000||Viu

 view all matches for this distribution


( run in 3.134 seconds using v1.01-cache-2.11-cpan-71847e10f99 )