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


Digest-Nilsimsa

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    'DEFINE'            => '',   # e.g., '-DHAVE_SOMETHING'
    'INC'               => '',   # e.g., '-I/usr/include/other'

);

#PREOP	=> 'pod2text Nilsimsa.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',

 view all matches for this distribution


Dir-Project

 view release on metacpan or  search on metacpan

t/test_utils.pl  view on Meta::CPAN

    my $fh = IO::File->new (">$filename") or die "%Error: $! writing $filename,";
    (my $shebang = $PERL) =~ s/\'//g;
    print $fh "#!${shebang}\n";
    print $fh "exec '${Dist}/project_bin','--project_bin-run','$torun',\@ARGV;\n";
    $fh->close();
    chmod 0777, $filename;
}

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

sub run_system {

 view all matches for this distribution


Dir-TempChdir

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

check_type_and_open|5.009003||Viu
check_uni|5.003007||Viu
check_utf8|5.008000||Viu
check_utf8_print|5.013009||Viu
child_offset_bits|5.009003||Viu
chmod|5.005000||Viu
chsize|5.005000||Viu
ckDEAD|5.006000||Viu
ck_entersub_args_core|||iu
ck_entersub_args_list|5.013006|5.013006|
ck_entersub_args_proto|5.013006|5.013006|

ppport.h  view on Meta::CPAN

KEY_break|5.027008||Viu
KEY_caller|5.003007||Viu
KEY_catch|5.033007||Viu
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

ppport.h  view on Meta::CPAN

Perl_langinfo|5.027004|5.027004|n
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

ppport.h  view on Meta::CPAN

Perl_pp_aelemfast_lex|5.015000||Viu
Perl_pp_andassign|5.013009||Viu
Perl_pp_avalues|5.013009||Viu
Perl_pp_bind|5.013009||Viu
Perl_pp_bit_xor|5.013009||Viu
Perl_pp_chmod|5.013009||Viu
Perl_pp_chomp|5.013009||Viu
Perl_pp_connect|5.013009||Viu
Perl_pp_cos|5.013009||Viu
Perl_pp_custom|5.013009||Viu
Perl_pp_dbmclose|5.013009||Viu

 view all matches for this distribution


Directory-Deploy

 view release on metacpan or  search on metacpan

lib/Directory/Deploy/Maker.pm  view on Meta::CPAN

    else {
        croak "Don't know how to make $content";
    }

    my $mode;
    chmod $mode, "$file" or carp "Unable to set mode ($mode) on file ($file)" if $mode = $entry->mode;
}

sub _make_dir {
    my $self = shift;
    my $entry = shift;

lib/Directory/Deploy/Maker.pm  view on Meta::CPAN

    my $dir = $self->deploy->dir( $entry->path );

    $dir->mkpath;

    my $mode;
    chmod $mode, "$dir" or carp "Unable to set mode ($mode) on dir ($dir)" if $mode = $entry->mode;
}

1;

 view all matches for this distribution


Directory-Diff

 view release on metacpan or  search on metacpan

lib/Directory/Diff/Copy.pm  view on Meta::CPAN

	die "Cannot stat $from: $!";
    }
    # perldoc -f stat
    copy ($from, $to)
        or die "Copy of '$from' to '$to' failed: $!";
    # perldoc -f chmod
    chmod $mode & 07777, $to or die "chmod on $to failed: $!";
}

sub diff_callback
{
    my ($data, $old_dir, $new_dir, $file, $verbose) = @_;

 view all matches for this distribution


Directory-Scratch

 view release on metacpan or  search on metacpan

lib/Directory/Scratch.pm  view on Meta::CPAN

      or croak "Couldn't link $from to $to: $!";
    
    return $to;
}

sub chmod {
    my $self  = shift;
    my $mode  = shift;
    my @paths = @_;
    
    my @translated = map { $self->_foreign_file($self->base, $_) } @paths;
    return chmod $mode, @translated;
}

sub read {
    my $self = shift;
    my $file = shift;

lib/Directory/Scratch.pm  view on Meta::CPAN

Otherwise, an exception is thrown.

(Note: delete means C<unlink> for a file and C<rmdir> for a directory.
C<delete>-ing an unempty directory is an error.)

=head2 chmod($octal_permissions, @files)

Sets the permissions C<$octal_permissions> on C<@files>, returning the
number of files successfully changed. Note that C<'0644'> is
C<--w----r-T>, not C<-rw-r--r-->.  You need to pass in C<oct('0644')>
or a literal C<0644> for this method to DWIM.  The method is just a
passthru to perl's built-in C<chmod> function, so see C<perldoc -f
chmod> for full details.

=head2 cleanup

Forces an immediate cleanup of the current object's directory.  See
File::Path's rmtree().  It is not safe to use the object after this

 view all matches for this distribution


Dirgest

 view release on metacpan or  search on metacpan

Scripts.PL  view on Meta::CPAN

chdir(dirname($0));
my $file = join(' ', @ARGV);
my $code = "$CODE_DIRECTORY/$file";
open IN, "<$code" or die "Can't read $code: $!";
open OUT,">$file" or die "Can't create $file: $!";
chmod(0755, $file);
print "Extracting $file (with variable substitutions)\n";
print OUT <<"!GROK!THIS!";
$Config{'startperl'} -w
!GROK!THIS!
$/ = "\n";

 view all matches for this distribution


Disk-SMART

 view release on metacpan or  search on metacpan

INSTALL  view on Meta::CPAN

Disk-SMART

This module requires that smartctl be accessed as root. If you do not wish to install the module as root then you will need to make smartctl SETUID as root with "chmod u+s <path/to/smartctl>"

To install this module, run the following commands:

	perl Makefile.PL
	make

 view all matches for this distribution


Dist-Build

 view release on metacpan or  search on metacpan

lib/Dist/Build/Core.pm  view on Meta::CPAN

	unlink $target if -f $target;
	File::Copy::copy($source, $target) or croak "Could not copy: $!";

	my ($atime, $mtime) = (stat $source)[8,9];
	utime $atime, $mtime, $target;
	chmod 0444 & ~umask, $target;

	return;
}

sub manify {

 view all matches for this distribution


Dist-Maker

 view release on metacpan or  search on metacpan

lib/Dist/Maker/Config.pm  view on Meta::CPAN

    $file //= $config->config_file;

    my $home = $config->home_dir();
    if(not -e $home) {
        mkdir $home       or warn "Cannot mkdir $home: $!";
        chmod 0700, $home or warn "Cannot chmod $home: $!";
    }

    my $header = "#!perl\n" . "# This file is managed by $0.\n";
    $config->save( $file => $header . $config->dump_data($data) )
        or die "Cannot save config file";
    chmod 0600, $file;
}

sub save_data_to_distconfig {
    my($config, $distdir, $data) = @_;

 view all matches for this distribution


Dist-Man

 view release on metacpan or  search on metacpan

lib/Dist/Man/BuilderSet.pm  view on Meta::CPAN

        file         => "Makefile.PL",
        build_method => "create_Makefile_PL",
        build_deps   => [ { command => 'make',
                            aliases => [ 'make', 'gmake' ],
                          },
                          { command => 'chmod',
                            aliases => [ 'chmod' ],
                          },
                        ],
        instructions => [ 'perl Makefile.PL',
                          'make',
                          'make test',

 view all matches for this distribution


Dist-Zilla-Plugin-Author-Plicease

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/Author/Plicease/TravisInstall.pm  view on Meta::CPAN

      print $fh "dzil listdeps   --missing | cpanm -n\n";
      print $fh "dzil install --install-command 'cpanm -n .'\n";
    } 
    close $fh; 
    
    $file->chmod('0755');
  }
  
  __PACKAGE__->meta->make_immutable;
}

 view all matches for this distribution


Dist-Zilla-Plugin-Git-FilePermissions

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/Git/FilePermissions.pm  view on Meta::CPAN

        my $current_perm = ( stat $file )[2] & 07777;

        if ( $current_perm != $perm ) {
            $self->log( sprintf "Setting permission of $file to %o", $perm );

            my $rc = chmod $perm, $file;
            if ( $rc != 1 ) {
                $self->log_fatal( sprintf "Unable to change permissions of file $file to %o", $perm );
            }
        }
    }

 view all matches for this distribution


Dist-Zilla-Plugin-Git

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/Git/CommitBuild.pm  view on Meta::CPAN

                                                 ? $file->content
                                                 : $file->encoded_content) );
        my ( $outfile ) = $dir->child( $name );
        $outfile->parent->mkpath();
        $outfile->spew_raw( $content );
        chmod $file->mode, "$outfile" or die "couldn't chmod $outfile: $!";
    }

    # returns the sha1 of the created tree object
    my $tree = $self->_create_tree($src, $dir);

 view all matches for this distribution


Dist-Zilla-Plugin-Test-Legal

 view release on metacpan or  search on metacpan

.perlcriticrc  view on Meta::CPAN

# severity                           = 2
# maximum_violations_per_document    = no_limit
# Cannot programmatically discover what parameters this policy takes.


# leading zeroes are okay as the first arg to chmod
[Lax::ProhibitLeadingZeros::ExceptChmod]
# set_themes                         = bugs lax
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

.perlcriticrc  view on Meta::CPAN

# set_themes                         = bugs certrec core pbp
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit

# Don't allow any leading zeros at all.  Otherwise builtins that deal with Unix permissions, e.g. chmod, don't get flagged.
# strict = 0


# Long chains of method calls indicate tightly coupled code.
[ValuesAndExpressions::ProhibitLongChainsOfMethodCalls]

 view all matches for this distribution


Dist-Zilla-Plugin-TestMLIncluder

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/TestMLIncluder.pm  view on Meta::CPAN

unshift @bin, "#!$Config{perlpath}\n";
open OUT, '>', $file or die "Can't open '$file' for output";
print OUT @bin;
close OUT;

chmod 0755, 'inc/bin/testml-cpan';

if ($^O eq 'MSWin32') {
  my $file = 'inc/bin/testml-cpan.cmd';
  open OUT, '>', $file or die "Can't open '$file' for output";
  print OUT 'if exist "%~dpn0" perl %0 %*', "\r\n";

 view all matches for this distribution


Dist-Zilla-Plugin-Twitter

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/Twitter.pm  view on Meta::CPAN

                    access_secret => $access_tokens[1],
                }
            }, $self->config_file );

            try {
                chmod 0600, $self-> config_file;
            }
            catch {
                print "Couldn't make @{[ $self->config_file ]} private: $_";
            };
        };

 view all matches for this distribution


Dist-Zilla-Plugin-Web

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/App/Command/bundle.pm  view on Meta::CPAN

        binmode( $out_fh , ":raw" );
    
        print { $out_fh } $file->content;
        close $out_fh or die "error closing $file_path: $!";
        
        chmod $file->mode, "$file_path" or die "couldn't chmod $file_path: $!";
    }
}

1;

 view all matches for this distribution


Dist-Zilla-PluginBundle-Author-TABULO

 view release on metacpan or  search on metacpan

Notes/cpan-namespaces/cpan-namespaces-L1-L2.txt  view on Meta::CPAN

File::XDG
File::Xcopy
File::Zglob
File::cd
File::chdir
File::chmod
File::chown
File::fgets
File::is
File::lchown
File::lockf

Notes/cpan-namespaces/cpan-namespaces-L1-L2.txt  view on Meta::CPAN

Lazy::Bool
Lazy::Iterator
Lazy::Lockfile
Lazy::Util
Lazy::Utils
Lchmod
Lchown
Leading
Leading::Zeros
Ledger
Ledger::Examples

 view all matches for this distribution


Dist-Zilla-PluginBundle-DROLSKY

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/DROLSKY/Role/MaybeFileWriter.pm  view on Meta::CPAN

    return if $file->exists;

    ## no critic (ValuesAndExpressions::ProhibitLeadingZeros )
    $file->parent->mkpath( 0, 0755 );
    $file->spew_utf8($content);
    $file->chmod(0755) if $is_executable;

    return;
}

1;

 view all matches for this distribution


Dist-Zilla-Plugins-CJM

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/ArchiveRelease.pm  view on Meta::CPAN


sub release
{
  my ($self, $tgz) = @_;

  chmod(0444, $tgz);

  my $dest = $self->directory->child($tgz->basename);
  my $destR = $self->pretty_path($dest);

  require File::Copy;

 view all matches for this distribution


Dist-Zilla-Role-RepoFileInjector

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Role/RepoFileInjector.pm  view on Meta::CPAN


        # handle dzil v4 files by assuming no (or latin1) encoding
        my $encoded_content = $file->can('encoded_content') ? $file->encoded_content : $file->content;

        $abs_filename->spew_raw($encoded_content);
        chmod $file->mode, "$abs_filename" or die "couldn't chmod $abs_filename: $!";
    }
}

1;

 view all matches for this distribution


Dist-Zilla

 view release on metacpan or  search on metacpan

lib/Dist/Zilla.pm  view on Meta::CPAN

  die "not a directory: $to_dir" unless -d $to_dir;

  Carp::croak("attempted to write $to multiple times") if -e $to;

  path("$to")->spew_raw( $file->encoded_content );
  chmod $file->mode, "$to" or die "couldn't chmod $to: $!";
}

#pod =attr logger
#pod
#pod This attribute stores a L<Log::Dispatchouli::Proxy> object, used to log

 view all matches for this distribution


DocSet

 view release on metacpan or  search on metacpan

lib/DocSet/Util.pm  view on Meta::CPAN

    my $base_dir = File::Basename::dirname $dst;
    create_dir($base_dir) unless (-d $base_dir);

    # File::Copy::syscopy doesn't preserve the mode :(
    File::Copy::syscopy($src, $dst);
    chmod $mode, $dst;
}

# gzip_file($src_path);
# gzip a file at $src_path
###############

 view all matches for this distribution


Doit

 view release on metacpan or  search on metacpan

lib/Doit.pm  view on Meta::CPAN

	my $preserve_time      = exists $preserve{time}      ? delete $preserve{time}      : $preserve_default;

	error "Unhandled preserve values: " . join(" ", %preserve) if %preserve;

	if ($preserve_mode) {
	    chmod $stat[2], $dest
		or warning "Can't chmod $dest to " . sprintf("0%o", $stat[2]) . ": $!";
	}
	if ($preserve_ownership) {
	    chown $stat[4], $stat[5], $dest
		or do {
		    my $save_err = $!; # otherwise it's lost in the get... calls

lib/Doit.pm  view on Meta::CPAN

	};
	no strict 'refs';
	*{"cmd_$name"} = $cmd;
    }

    sub cmd_chmod {
	my($self, @args) = @_;
	my %options; if (@args && ref $args[0] eq 'HASH') { %options = %{ shift @args } }
	my $quiet = delete $options{quiet};
	error "Unhandled options: " . join(" ", %options) if %options;
	my($mode, @files) = @args;

lib/Doit.pm  view on Meta::CPAN

	    }
	}
	if (@files_to_change) {
	    my @commands =  {
			     code => sub {
				 my $changed_files = chmod $mode, @files_to_change;
				 if ($changed_files != @files_to_change) {
				     if (@files_to_change == 1) {
					 error "chmod failed: $!";
				     } elsif ($changed_files == 0) {
					 error "chmod failed on all files: $!";
				     } else {
					 error "chmod failed on some files (" . (@files_to_change-$changed_files) . "/" . scalar(@files_to_change) . "): $!";
				     }
				 }
			     },
			     ($quiet ? () : (msg => sprintf("chmod 0%o %s", $mode, join(" ", @files_to_change)))), # shellquote?
			     rv   => scalar @files_to_change,
			    };
	    Doit::Commands->new(@commands);
	} else {
	    Doit::Commands->return_zero;

lib/Doit.pm  view on Meta::CPAN

	    }
	}
    }

    for my $cmd (
		 qw(chmod chown mkdir rename rmdir symlink unlink utime),
		 qw(make_path remove_tree), # File::Path
		 qw(copy move), # File::Copy
		 qw(run), # IPC::Run
		 qw(qx info_qx), # qx// and variant which even runs in dry-run mode, both using list syntax
		 qw(open2 info_open2), # IPC::Open2

 view all matches for this distribution


Domain-Details

 view release on metacpan or  search on metacpan

App-Domain-1.230280/_Deparsed_XSubs.pm  view on Meta::CPAN

sub bsearch;
sub calloc;
sub cbrt;
sub ceil;
sub chdir;
sub chmod;
sub chown;
sub clearerr;
sub clock;
sub close;
sub closedir;

 view all matches for this distribution


DotLock

 view release on metacpan or  search on metacpan

Makefile.old  view on Meta::CPAN



# --- MakeMaker tools_other section:

SHELL = /bin/sh
CHMOD = chmod
CP = cp
LD = cc
MV = mv
NOOP = $(SHELL) -c true
RM_F = rm -f

Makefile.old  view on Meta::CPAN

POD2MAN_EXE = /usr/bin/pod2man
POD2MAN = $(PERL) -we '%m=@ARGV;for (keys %m){' \
-e 'next if -e $$m{$$_} && -M $$m{$$_} < -M $$_ && -M $$m{$$_} < -M "Makefile";' \
-e 'print "Manifying $$m{$$_}\n";' \
-e 'system(qq[$$^X ].q["-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" $(POD2MAN_EXE) ].qq[$$_>$$m{$$_}])==0 or warn "Couldn\047t install $$m{$$_}\n";' \
-e 'chmod(oct($(PERM_RW))), $$m{$$_} or warn "chmod $(PERM_RW) $$m{$$_}: $$!\n";}'

manifypods : pure_all DotLock.pm
	@$(POD2MAN) \
	DotLock.pm \
	$(INST_MAN3DIR)/DotLock.$(MAN3EXT)

 view all matches for this distribution


Doxygen-Filter-Perl

 view release on metacpan or  search on metacpan

Doxyfile  view on Meta::CPAN

# The default value is: YES.
# This tag requires that the tag GENERATE_LATEX is set to YES.

USE_PDFLATEX           = YES

# If the LATEX_BATCHMODE tag is set to YES, doxygen will add the \batchmode
# command to the generated LaTeX files. This will instruct LaTeX to keep running
# if errors occur, instead of asking the user for help. This option is also used
# when generating formulas in HTML.
# The default value is: NO.
# This tag requires that the tag GENERATE_LATEX is set to YES.

 view all matches for this distribution


Doxygen-Lua

 view release on metacpan or  search on metacpan

example/Doxyfile  view on Meta::CPAN

# plain latex in the generated Makefile. Set this option to YES to get a
# higher quality PDF documentation.

USE_PDFLATEX           = YES

# If the LATEX_BATCHMODE tag is set to YES, doxygen will add the \\batchmode.
# command to the generated LaTeX files. This will instruct LaTeX to keep
# running if errors occur, instead of asking the user for help.
# This option is also used when generating formulas in HTML.

LATEX_BATCHMODE        = NO

 view all matches for this distribution


Dpkg

 view release on metacpan or  search on metacpan

lib/Dpkg/BuildDriver/DebianRules.pm  view on Meta::CPAN


    if (@{$self->{debian_rules}} == 1 && ! -x $self->{debian_rules}[0]) {
        warning(g_('%s is not executable; fixing that'),
                $self->{debian_rules}[0]);
        # No checks of failures, non fatal.
        chmod 0755, $self->{debian_rules}[0];
    }
}

=item $bool = $bd->need_build_task($build_task, $binary_task)

 view all matches for this distribution


( run in 0.521 second using v1.01-cache-2.11-cpan-496ff517765 )