view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(TRUE)
NOECHO = @
RM_F = rm -f
view release on metacpan or search on metacpan
0.08 - 07 May 2007
- Add h2z() and z2h()
0.07 - 03 May 2007
- Add decode_utf8() and encode_utf8()
- chmod a-x Makefile.PL for kwalitee
0.06 - 17 Apr 2007
- No code change, just kwalitee related fixes
0.05 - 16 Apr 2007
view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(SHELL) -c true
NOECHO = @
RM_F = rm -f
view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(SHELL) -c true
NOECHO = @
RM_F = rm -f
view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(SHELL) -c true
NOECHO = @
RM_F = rm -f
view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(SHELL) -c true
NOECHO = @
RM_F = rm -f
view release on metacpan or search on metacpan
lib/DataStore/CAS/FS/Exporter.pm view on Meta::CPAN
}
sub _apply_metadata {
my ($self, $entry, $path)= @_;
if (defined (my $mode= $entry->unix_mode)) {
chmod($mode & ~Fcntl::S_IFMT(), $path)
or $self->_handle_metadata_error("chmod($path): $!");
}
my ($uid, $gid)= ($entry->unix_uid, $entry->unix_gid);
if (defined (my $u= $entry->unix_user)) {
my $cache= $self->unix_user_cache;
view release on metacpan or search on metacpan
t/password.t view on Meta::CPAN
unless ($^O eq 'MSWin32') {
$log->clear;
$eng->database_password;
$log->contains_ok(qr/permissions should be u=rw \(0600\) or less/, 'permission warning');
chmod 0600, $fh->filename;
}
is($eng->database_password, 'pgpass', 'PGPASSFILE wins over ~/.pgpass');
done_testing;
};
t/password.t view on Meta::CPAN
$dir
});
path($dir.'/.pgpass')->spew_utf8([
"*:*:*:*:val\\id:\n"
]);
chmod 0600, $dir.'/.pgpass' unless $^O eq 'MSWin32';
is($eng->database_password, 'valid', 'backslash');
for (my $i=1; $i<16; $i++) {
path($dir.'/.pgpass')->spew_utf8([
join(':', ($i & 8 ? 'HOST' : '*',
t/password.t view on Meta::CPAN
$i & 1 ? 'USER' : '*',
"valid\n")),
"HOST:9876:DB:USER:invalid\n",
"*:*:*:*:invalid\n",
]);
chmod 0600, $dir.'/.pgpass' unless $^O eq 'MSWin32';
is($eng->database_password, 'valid', "first match $i wins");
}
done_testing;
};
view release on metacpan or search on metacpan
lib/Test/Database/Migrator.pm view on Meta::CPAN
$self->_write_ddl_file(
$file,
$migration,
);
chmod 0755, $file->stringify;
return;
}
sub _new_migrator {
view release on metacpan or search on metacpan
t/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 release on metacpan or search on metacpan
t/perlcritic.rc 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 release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(TRUE)
NOECHO = @
RM_F = rm -f
view release on metacpan or search on metacpan
test-dlmup.pl view on Meta::CPAN
"missing input file");
# ------ can't create output file
create_test_file("unwritable.html.dlmup");
chmod(0400, "unwritable.html.dlmup")
|| die "can't chmod 0400 unwritable.html.dlmup because: $!\n";
$output = join(" ", `bin/dlmup -f$tmpdir/datelastmod-1file.cfg "Last updated \\w+ \\d+, \\d+" "%B %e, %Y" unwritable.html 2>&1`);
like($output, qr/can't create 'unwritable.html.dlmup' because/,
"can't create output file");
view release on metacpan or search on metacpan
internal/NOTES view on Meta::CPAN
y=`date '+%Y'`
for i in `find . -type f | egrep -v '.git' | xargs egrep -l 'Copyright \(c\) ....\-.... Sullivan Beck'` ;do
sed -e "s,\(Copyright (c) ....\)\-.... \(Sullivan Beck\),\1-$y \2," $i > z
mv z $i
done
chmod +x internal/tzdata internal/gen_dm5abbrevs examples/dm_* internal/langpod internal/windows.compare
#########################################################################
Switch the system timezone to America/Central and run the tests.
#########################################################################
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 = gcc
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(q[$(PERLRUN) $(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 lib/Date/Namedays/Simple/Hungarian.pm \
lib/Date/Namedays/Simple.pm
@$(POD2MAN) \
lib/Date/Namedays/Simple/Hungarian.pm \
view release on metacpan or search on metacpan
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(TRUE)
NOECHO = @
RM_F = rm -f
view release on metacpan or search on metacpan
xt/author/nonexistent-locale.t view on Meta::CPAN
use Test::File::ShareDir::Dist { 'DateTime-Locale' => 'share' };
use DateTime::Locale::Data;
use File::ShareDir qw( dist_dir );
skip_all 'This test requires chmod support'
if $^O eq 'MSWin32';
my $file
= File::Spec->catfile( dist_dir('DateTime-Locale'), 'unreadable.pl' );
open my $fh, '>', $file or die $!;
print {$fh} "some content\n" or die $!;
close $fh or die $!;
chmod 0000, $file or die $!;
like(
dies { DateTime::Locale::Data::locale_data('unreadable') },
qr/No read permission/,
'got an exception trying to read an unreadable file',
view release on metacpan or search on metacpan
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|
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
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
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 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 = gcc
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 Dblink.pm
@$(POD2MAN) \
Dblink.pm \
$(INST_MAN3DIR)/Dblink.$(MAN3EXT)
view release on metacpan or search on metacpan
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
LD = gcc
MV = mv
NOOP = $(SHELL) -c true
RM_F = rm -f
POD2MAN_EXE = /usr/local/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 EchoMessage.pm
@$(POD2MAN) \
EchoMessage.pm \
$(INST_MAN3DIR)/Debug::EchoMessage.$(MAN3EXT)
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
$lddlflags .= " $1" while $LIBS =~ s/ (-Wl,\S+) / /;
}
WriteMakefile(
dist => {
PREOP => 'pod2text bin/deliantra | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "Deliantra::Client",
INC => $INC,
view release on metacpan or search on metacpan
Deliantra/Map.pm view on Meta::CPAN
open my $fh, ">:raw:utf8", "$path~" or Carp::croak "$path~: $!";
print $fh $self->as_mapstring or Carp::croak "$path~: $!";
close $fh or Carp::croak "$path~: $!";
if (stat $path) {
chmod +(stat _)[2] & 0777, "$path~";
chown +(stat _)[4,5], "$path~";
}
rename "$path~", $path;
}
view release on metacpan or search on metacpan
lib/Devel/CheckLib.pm view on Meta::CPAN
my $rv = $args{debug} ? system(@sys_cmd) : _quiet_system(@sys_cmd);
if ($rv != 0 || ! -f $exefile) {
push @missing, $lib;
}
else {
chmod 0755, $exefile;
my $absexefile = File::Spec->rel2abs($exefile);
$absexefile = '"'.$absexefile.'"' if $absexefile =~ m/\s/;
warn "# Execute($execute): $absexefile\n" if $args{debug};
if ($execute) {
my $retval = system($absexefile);
view release on metacpan or search on metacpan
lib/Devel/Chitin/OpTree/LISTOP.pm view on Meta::CPAN
}
"truncate(${fh}, " . $children->[2]->deparse . ')';
}
sub pp_chmod {
my $self = shift;
my $children = $self->children;
my $mode = $self->_as_octal($children->[1]->deparse);
my $target = $self->_maybe_targmy;
"${target}chmod(${mode}, " . join(', ', map { $_->deparse } @$children[2 .. $#$children]) . ')';
}
sub pp_mkdir {
my $self = shift;
my $children = $self->children;
view release on metacpan or search on metacpan
t/005_tdump.t view on Meta::CPAN
# Test 0: Can't touch this.
SKIP:{
skip "Can't do unwritable file test as root", 2 unless $> != 0;
open(JUNK,">t/nowrite.file");
close JUNK;
chmod 0000, "t/nowrite.file";
Devel::Command::Tdump::command("tdump t/nowrite.file");
ok($$contents, "got a message");
like($$contents, qr/can't write history:/, "expected error");
chmod 0700, "t/nowrite.file";
unlink "t/nowrite.file";
erase;
}
foreach my $case (keys %cases_of) {
view release on metacpan or search on metacpan
TOUCH = touch
CP = cp
MV = mv
RM_F = rm -f
RM_RF = rm -rf
CHMOD = chmod
UMASK_NULL = umask 0
# The following is a portable way to say mkdir -p
# To see which directories are created, change the if 0 to if 1
MKPATH = $(PERL) -wle '$$"="/"; foreach $$p (@ARGV){' \
POD2MAN_EXE = /opt/gnu/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("$$^X \"-I$(PERL_ARCHLIB)\" \"-I$(PERL_LIB)\" $(POD2MAN_EXE) $$_>$$m{$$_}")==0 or warn "Couldn\047t install $$m{$$_}\n";' \
-e 'chmod 0644, $$m{$$_} or warn "chmod 644 $$m{$$_}: $$!\n";}'
manifypods : lib/Devel/CoreStack.pm
@$(POD2MAN) \
lib/Devel/CoreStack.pm \
$(INST_MAN3DIR)/Devel::CoreStack.$(MAN3EXT)
view release on metacpan or search on metacpan
lib/Devel/Cover.pm view on Meta::CPAN
$DB = File::Spec->rel2abs($DB, $Dir);
unless (mkdir $DB) {
my $err = $!;
die "Can't mkdir $DB as EUID $>: $err" unless -d $DB;
}
chmod 0777, $DB if $Loose_perms;
$DB = $1 if abs_path($DB) =~ /(.*)/; ## no critic (CaptureWithoutTest)
Devel::Cover::DB->delete($DB) unless $Merge;
%Files = (); # start gathering file information from scratch
lib/Devel/Cover.pm view on Meta::CPAN
my $dbrun = "$DB/runs";
unless (mkdir $dbrun) {
die "Can't mkdir $dbrun $!" unless -d $dbrun;
}
chmod 0777, $dbrun if $Loose_perms;
$dbrun .= "/$run";
print OUT __PACKAGE__, ": Writing coverage database to $dbrun\n"
unless $Silent;
$cover->write($dbrun);
view release on metacpan or search on metacpan
DB/Data/Dump.pm view on Meta::CPAN
$TRY_BASE64 = 50 unless defined $TRY_BASE64;
my %is_perl_keyword = map { $_ => 1 }
qw( __FILE__ __LINE__ __PACKAGE__ __DATA__ __END__ AUTOLOAD BEGIN CORE
DESTROY END EQ GE GT INIT LE LT NE abs accept alarm and atan2 bind
binmode bless caller chdir chmod chomp chop chown chr chroot close
closedir cmp connect continue cos crypt dbmclose dbmopen defined
delete die do dump each else elsif endgrent endhostent endnetent
endprotoent endpwent endservent eof eq eval exec exists exit exp fcntl
fileno flock for foreach fork format formline ge getc getgrent
getgrgid getgrnam gethostbyaddr gethostbyname gethostent getlogin
view release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
# --- MakeMaker tool_xsubpp section:
# --- MakeMaker tools_other section:
SHELL = /bin/sh
CHMOD = chmod
CP = cp
MV = mv
NOOP = $(SHELL) -c true
NOECHO = @
RM_F = rm -f
view release on metacpan or search on metacpan
t/04-errors.t view on Meta::CPAN
lives_ok {
Devel::FIXME->readfile("t/lib/does_not_exist");
} "readfile on something nonexistent doesn't complain";
SKIP: {
chmod 0, "t/lib/cant_read";
skip "Won't generate error, because file is readable", 1 if -r "t/lib/cant_read";
require Errno;
Errno->import("EACCES");
$! = EACCES();
my $perm = "$!";
throws_ok {
Devel::FIXME->readfile("t/lib/cant_read");
} qr/$perm/o, "readfile on something restricted yields permission denied";
chmod 0644, "t/lib/cant_read";
}