B-C
view release on metacpan or search on metacpan
1.24 2010-02-15 rurban
* C.pm: Fixed off by one array access in magic array init (34)
- valgrind is your friend.
Fixed aelemfast padsv access crash (Text::Tabs on freebsd7)
Fixed wrong stash names in gv_stashpv analog to gv_fetchpv
(Text-Tabs+Wrap t/dandv.t)
* t/testm.sh: implement -s without log file
* t/modules.pm: export skip_modules, silence module scanning STDERR
1.23 2010-02-14 rurban
* t/testm.sh: chmod +x
* t/modules.t: fix $have_IPC_Run
1.22 2010-02-14 rurban
Tested with ActivePerl 5.10.0
* bytecode.h: unshare_hek exception for WIN32, not only MINGW
* t/modules.t: Added list of to be skipped modules, which cycle endlessly.
Improve todo message.
* t/testm.sh: add option -s "install skipped modules"
* Makefile.PL, cc_harness, perlcc: fix ldflags for ActivePerl 5.10.0
Makefile.PL view on Meta::CPAN
exit(1);
}
my $CORE = $ENV{PERL_CORE} || grep { $_ eq 'PERL_CORE=1' } @ARGV;
mkdir "lib/B/C" unless -d "lib/B/C";
unless (-e 'lib/B/C/Config.pm') {
open PH, ">", "lib/B/C/Config.pm";
print PH "package B::C::Config;\n\n";
print PH "\n1;\n";
close PH;
chmod 0644, "lib/B/C/Config.pm";
}
# my $X = $^X =~ / / ? qq("$^X") : $^X;
if ($CORE) {
$ENV{PERL_CORE} = 1;
system($^X,"-I".File::Spec->catfile(qw(.. .. lib)),
"-I".File::Spec->catfile(qw(.. .. regen)),
"bytecode.pl");
} else {
my $asmdata = File::Spec->catfile('lib', 'B', 'Asmdata.pm');
Makefile.PL view on Meta::CPAN
$conf .= ");";
} else {
$conf = Data::Dumper::Dumper(\%cfg);
$conf =~ s/^\s*{/(/;
$conf =~ s/}\s*$/);/;
}
print PH "our \%Config = $conf\n";
print PH "\n";
print PH "1;\n";
close PH;
chmod 0644, "lib/B/C/Config.pm";
}
# XXX Check for 5.16.0 B-1.34 and offer to patch it? rather use `perlall build --patches=Compiler`
my $unicode_warning =
" Perl handling of new unicode identifiers - package and symbol names - \n".
" without proper TR39 handling is considered a security risc and is not fully supported.\n".
" See http://websec.github.io/unicode-security-guide/\n\n";
if ($ENV{PERL_CORE}) {
# supress the TR39 warnings in core
}
bytecode.pl view on Meta::CPAN
Reini Urban added the version logic, support >= 5.10, portability.
=cut
# ex: set ro:
EOT
close ASMDATA_PM or die "Error closing $targets[0]: $!";
close BYTERUN_C or die "Error closing $targets[1]: $!";
close BYTERUN_H or die "Error closing $targets[2]: $!";
chmod 0444, @targets;
# TODO 5.10:
# stpv (?)
# pv_free: free the bs_pv and the SvPVX? (?)
__END__
# First set instruction ord("#") to read comment to end-of-line (sneaky)
35 0 comment arg comment_t
# Then make ord("\n") into a no-op
10 0 nop none none
ramblings/remark.js view on Meta::CPAN
require=function(e,t,n){function i(n,s){if(!t[n]){if(!e[n]){var o=typeof require=="function"&&require;if(!s&&o)return o(n,!0);if(r)return r(n,!0);throw new Error("Cannot find module '"+n+"'")}var u=t[n]={exports:{}};e[n][0].call(u.exports,function(t)...
this.QUOTE_STRING_MODE={className:"string",begin:'"',end:'"',illegal:"\\n",contains:[this.BACKSLASH_ESCAPE]};this.PHRASAL_WORDS_MODE={begin:/\b(a|an|the|are|I|I'm|isn't|don't|doesn't|won't|but|just|should|pretty|simply|enough|gonna|going|wtf|so|such)...
SUBST.contains=EXPRESSIONS;return{aliases:["coffee","cson","iced"],keywords:KEYWORDS,contains:EXPRESSIONS.concat([{className:"comment",begin:"###",end:"###"},hljs.HASH_COMMENT_MODE,{className:"function",begin:"("+JS_IDENT_RE+"\\s*=\\s*)?(\\(.*\\))?\\...
}()},{}],8:[function(require,module,exports){exports.addClass=function(element,className){element.className=exports.getClasses(element).concat([className]).join(" ")};exports.removeClass=function(element,className){element.className=exports.getClasse...
events.on("slideChanged",updateHash);navigateByHash()}function navigateByHash(){var slideNoOrName=(dom.getLocationHash()||"").substr(1);events.emit("gotoSlide",slideNoOrName)}function updateHash(slideNoOrName){dom.setLocationHash("#"+slideNoOrName)}}...
ramblings/runtime.porting view on Meta::CPAN
ftsuid 5 2 cando
ftsgid 5 2 cando
ftsvtx 5 2 cando
fttty 5 2 cando
fttext 5 4
ftbinary 5 4 fttext
chdir
chown
chroot
unlink
chmod
utime
rename
link
symlink
readlink
mkdir
rmdir
open_dir
readdir
telldir
regen_lib.pl view on Meta::CPAN
$Needs_Write = $Is_OS2 || $Is_W32 || $Is_Cygwin || $Is_NetWare;
sub safer_unlink {
my @names = @_;
my $cnt = 0;
my $name;
foreach $name (@names) {
next unless -e $name;
chmod 0777, $name if $Needs_Write;
( CORE::unlink($name) and ++$cnt
or warn "Couldn't unlink $name: $!\n" );
}
return $cnt;
}
sub safer_rename_silent {
my ($from, $to) = @_;
# Some dosish systems can't rename over an existing file:
safer_unlink $to;
chmod 0600, $from if $Needs_Write;
rename $from, $to;
}
sub safer_rename {
my ($from, $to) = @_;
safer_rename_silent($from, $to) or die "renaming $from to $to: $!";
}
1;
script/buildcc.PL view on Meta::CPAN
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4:
!NO!SUBS!
close OUT or die "Can't close $file: $!";
chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
chdir $origdir;
script/perlcc.PL view on Meta::CPAN
if (@$error_r && $errcode != 0) {
_die("$Input did not compile $errcode:\n@$error_r\n");
} else {
my @error = grep { !/^$Input syntax OK$/o } @$error_r;
@error = grep { !/^No package specified for compilation, assuming main::$/o } @error;
warn "$0: Unexpected compiler output\n@error" if @error and opt('v')<5;
warn "@error" if @error and opt('v')>4;
}
unless (opt('dryrun')) {
chmod 0777 & ~umask, $Output or _die("can't chmod $Output: $!\n");
}
}
sub compile_cstyle {
my $stash = opt('stash') ? grab_stash() : "";
$stash .= "," if $stash; #stash can be empty
$stash .= "-u$_," for @{$Options->{u}};
$stash .= "-U$_," for @{$Options->{U}};
#if ($ENV{PERL_CORE} and ($Config{ccflags} =~ /-m32/ or $Config{cc} =~ / -m32/)) {
script/perlcc.PL view on Meta::CPAN
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4:
!NO!SUBS!
close OUT or die "Can't close $file: $!";
chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
chdir $origdir;
script/pl2exe.pl view on Meta::CPAN
# Let Perl know we're done. We no longer care about CRLF.
print OUT "\nEXE_STUFF\nif 0;\n\n";
$_ = <IN>;
unless ($_ =~ /^\#!.*perl/ ) {
print OUT "#!perl\n";
}
print OUT $_, <IN>;
close IN;
close OUT;
chmod 0755, $name;
__END__
=pod
# base: 401000
objdump -D --target=binary --architecture i386 $code
0: b8 cc 11 40 00 mov $0x4011cc,%eax
5: 83 3d cc 11 40 00 00 cmpl $0x0,0x4011cc
t/config.sh-arm-linux view on Meta::CPAN
ccflags='-fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
ccflags_uselargefiles='-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
ccname='arm-linux-gcc'
ccsymbols='__APCS_32__=1 __ARM_ARCH_3__=1 __CHAR_UNSIGNED__=1 __GNUC_MINOR__=95 __arm__=1 __linux=1 __linux__=1 __unix=1 __unix__=1 cpu=arm machine=arm system=posix system=unix'
ccversion=''
cf_by='red'
cf_email='red@criticalintegration.com'
cf_time='Wed Sep 3 22:24:58 EDT 2003'
charbits='8'
chgrp=''
chmod='chmod'
chown=''
clocktype='clock_t'
comm='comm'
compress=''
contains='grep'
cp='cp'
cpio=''
cpp='cpp'
cpp_stuff='42'
cppccsymbols='__ELF__=1 __GNUC__=2 linux=1 unix=1'
t/config.sh-arm-linux view on Meta::CPAN
d_endsent='define'
d_endservent_r='undef'
d_eofnblk='define'
d_erf='undef'
d_erfc='undef'
d_eunice='undef'
d_exp2='undef'
d_expm1='undef'
d_faststdio='define'
d_fchdir='define'
d_fchmod='define'
d_fchmodat='undef'
d_fchown='define'
d_fcntl='define'
d_fcntl_can_lock='define'
d_fd_macros='define'
d_fd_set='define'
d_fdclose='undef'
d_fdim='undef'
d_fds_bits='undef'
d_fegetround='define'
d_fgetpos='define'
t/mymodules view on Meta::CPAN
ExtUtils::ParseXS
File::Copy::Recursive
File::Find::Rule
File::HomeDir
File::MMagic::XS
File::ReadBackwards
File::Remove
File::Tail
File::Temp
File::Touch
File::chmod
File::pushd
Filesys::Df
Filesys::Virtual
Filter::Util::Call
GD::Graph
GD::Text::Align
Geo::IPfree
Getopt::Long
Getopt::Param::Tiny
Graph::Easy
t/testplc.sh view on Meta::CPAN
# 5.8: all PASS
# 5.10: FAIL: 2-5, 7, 11, 15. With -D 9-12 fail also.
# 5.11: FAIL: 2-5, 7, 11, 15-16 (all segfaulting in REGEX). With -D 9-12 fail also.
# 5.11d: WRONG 4, FAIL: 9-11, 15-16
# 5.11d linux: WRONG 4, FAIL: 11, 16
#only if ByteLoader installed in @INC
if false; then
echo ${OCMD}-H,-obytecode2.plc bytecode2.pl
${OCMD}-H,-obytecode2.plc bytecode2.pl
chmod +x bytecode2.plc
echo ./bytecode2.plc
./bytecode2.plc
fi
# package pmc
if false; then
echo "package MY::Test;" > bytecode1.pm
echo "print 'hi'" >> bytecode1.pm
echo ${OCMD}-m,-obytecode1.pmc bytecode1.pm
${OCMD}-obytecode1.pmc bytecode1.pm
( run in 0.400 second using v1.01-cache-2.11-cpan-496ff517765 )