B-C
view release on metacpan or search on metacpan
* Fixed Bytecode op_pmflags assertions.
* Added orangesect for enough regexp space in RE's sv_any.
Engine not initialized though.
* Hangs in C/CC executables at an op_free(PL_main_root) trying to free
the static op structs because the earlier op_seq -1 hack is gone now,
and opt_static was replaced by opt_latefree. Set now opt_latefree = 1.
This fixed tests 1 and 13. Slowly making progress step by step.
1.04_12 2008-03-16 rurban (first upload)
* Fixed bug #40435 CC: Can't locate object method "_save_common_middle"
via package "B::FAKEOP"
* move tests from [bc]*.t into shared TESTS file.
* fixed remaining ugly Bytecode bug in B::AV::bsave
$_ = $_->ix for @array.
Now we are at the same state as with 5.9.4
* fixed wrong bc cop_warning cast for 5.8
* fixed CC pmreplroot and pmreplstart fields
* make C and CC less verbose, honor -v, -q ignored.
1.04_11 2008-03-09 rurban
Makefile.PL view on Meta::CPAN
$byterun_h : Makefile bytecode.pl @headers
\$(PERLRUN) bytecode.pl
TAGS : $asmdata
etags --language=perl lib/B/*.pm
";
if ($] > 5.009 and defined($ExtUtils::MM_Unix::VERSION)) {
my $ver = 0+$ExtUtils::MM_Unix::VERSION;
# 8.0403 is the cperl 5.24.0 version based on 7.04_03
if ($ver == 8.0403 or $ver == 8.0404
or $ver < 7.0509 or $ver == 7.1)
{
$result .= "\ntest :: subdirs-test\n\n";
} else {
$result .= "\ntest :: subdirs-test_\$(LINKTYPE)\n\n";
}
}
if ($Config::Config{make} eq 'mingw32-make') { # mingw32 make different to msys make
$result .= "\n.PHONY : \$(CONFIGDEP)\n\n";
}
It will check each file's integrity, as well as the signature's
validity. If "==> Signature verified OK! <==" is not displayed,
the distribution may already have been compromised, and you should
not run its Makefile.PL or Build.PL.
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA256
SHA256 6ce3e784a7f7e35a364e7fb6012abfd967647560e7efa0215ca8c971be215910 .gdb/dashboard
SHA256 2124a09a7f8a813b07744d99bf0cec11346dff2586250adcdff507828f9f70cf .gdb/perl
SHA256 9855e78ce5e95e56f674a04f4b9d404cc094a699e41a451f8033f95bf003b500 .gdbinit
SHA256 eb312e7ae98a1f8763fef25a5e4a9a6ffa8e91fff6726ff2b936df135df60e67 .gitignore
SHA256 fe13b60a913e3820f41e1211973e03d170e224beb14c21735f549ee440843e37 .perldb
SHA256 5aa972af5ed2a973ea8ebb20c73a3917f1912c9c777e64fa7043c5312a590c6c .travis.yml
SHA256 b7fd9b73ea99602016a326e0b62e6646060d18febdd065ceca8bb482208c3d88 Artistic
SHA256 dc76d744711aea1307d03cebd19b077e0aee014f909d948dc405d8d976d5a47b ByteLoader/BcVersions.pod
SHA256 14f71eb5c74556037b5fd5b00b29badf2c1ccd23a6f825a1f6520d2d24b02317 ByteLoader/BcVersions/Asm5_005002.pm
SHA256 b0c35c2afd453c94534e2de05a940d006763bab4656741223d71b908c7fbf718 ByteLoader/BcVersions/Asm5_005003.pm
SHA256 3a7691f5a333a5310578dbac5173c83af9bd85591f475c436924ddfd30d67acd ByteLoader/BcVersions/Asm5_005004.pm
SHA256 7687fb70e7d34f232b1575d0d77a55d82f131418d6ea701165a9e66aba255e02 ByteLoader/BcVersions/Asm5_005005.pm
SHA256 89b3924f72548c1ecdffbc7a7b487ab95e095b7cffa4a518a1273c72aadf68d5 ByteLoader/BcVersions/Asm5_005008.pm
MAGIC *mg;
for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) {
if (mg->mg_type == type && (mg->mg_flags | MGf_REFCOUNTED))
mg->mg_flags &= ~MGf_REFCOUNTED;
}
}
EOT
if ($PERL510 and IS_MSVC) {
# initializing char * differs in levels of indirection from int
print "#pragma warning( disable : 4047 )\n";
# targ: unreferenced local variable
print "#pragma warning( disable : 4101 )\n";
}
# Need fresh re-hash of strtab. share_hek does not allow hash = 0
if ( $PERL510 ) {
print <<'_EOT0';
PERL_STATIC_INLINE HEK *
my_share_hek( pTHX_ const char *str, I32 len );
#undef share_hek
ramblings/blogs-optimizing-2.md view on Meta::CPAN
$vzs[0] = - $pz / SOLAR_MASS;
}
# @ns = ( sun, jupiter, saturn, uranus, neptune )
@xs = (0, 4.84143144246472090e+00, 8.34336671824457987e+00, 1.28943695621391310e+01, 1.53796971148509165e+01);
@ys = (0, -1.16032004402742839e+00, 4.12479856412430479e+00, -1.51111514016986312e+01, -2.59193146099879641e+01);
@zs = (0, -1.03622044471123109e-01, -4.03523417114321381e-01, -2.23307578892655734e-01, 1.79258772950371181e-01);
@vxs = map {$_ * DAYS_PER_YEAR}
(0, 1.66007664274403694e-03, -2.76742510726862411e-03, 2.96460137564761618e-03, 2.68067772490389322e-03);
@vys = map {$_ * DAYS_PER_YEAR}
(0, 7.69901118419740425e-03, 4.99852801234917238e-03, 2.37847173959480950e-03, 1.62824170038242295e-03);
@vzs = map {$_ * DAYS_PER_YEAR}
(0, -6.90460016972063023e-05, 2.30417297573763929e-05, -2.96589568540237556e-05, -9.51592254519715870e-05);
@mass = map {$_ * SOLAR_MASS}
(1, 9.54791938424326609e-04, 2.85885980666130812e-04, 4.36624404335156298e-05, 5.15138902046611451e-05);
$last = @xs - 1;
offset_momentum();
printf ("%.9f\n", energy());
my $n = $ARGV[0];
# This does not, in fact, consume N*4 bytes of memory
for (1..$n){
script/pl2exe.pl view on Meta::CPAN
# Next comes the code.
# It performs fixups, prepends "perl -x " to the command line,
# launches perl, and returns perl's exit status. See at the end.
print OUT pack ("H*", "b8cc114000833dcc1140000074168b1085d27d06");
print OUT pack ("H*", "01500483c004ff0283c00483380075eaa1481140");
print OUT pack ("H*", "00ffd089c389c731c0b9f7fffffffcf2ae89f829");
print OUT pack ("H*", "d883e1fc01ccbec311400089e7b908000000f3a4");
print OUT pack ("H*", "89de89c1f3a489e383ec7cb91b00000089e731c0");
print OUT pack ("H*", "f3ab895c2404c74424284400000089e083c02889");
print OUT pack ("H*", "44242083c04489442424a140114000ffd021c075");
print OUT pack ("H*", "046a64eb258b4424446aff50a14c114000ffd021");
print OUT pack ("H*", "c074046a65eb0f8b4424446a665450a150114000");
print OUT pack ("H*", "ffd0a144114000ffd0");
print OUT "\015\012\015\012";
print OUT "-------here's the data, at file offset 760: -------";
print OUT "\015\012\015\012";
# Print out a dummy relocation table.
# The code is not relocatable--it must be loaded at 0x400000.
# But to allow programs to load it with LoadLibrary() and access
# its resources, the file must contain this table.
t/testplc.sh view on Meta::CPAN
print $f->x . "\n";'
result[371]='5'
if [[ $v518 -gt 0 ]]; then
tests[372]='use utf8; require mro; my $f_gen = mro::get_pkg_gen("ᕘ"); undef %ᕘ::; mro::get_pkg_gen("ᕘ"); delete $::{"ᕘ::"}; print "ok";'
result[372]='ok'
fi
tests[2050]='use utf8;package 텟ţ::ᴼ; sub ᴼ_or_Ḋ { "ok" } print ᴼ_or_Ḋ;'
result[2050]='ok'
tests[2051]='use utf8;package ƂƂƂƂ; sub ƟK { "ok" } package ƦƦƦƦ; use base "ƂƂƂƂ"; my $x = bless {}, "ƦƦƦƦ"; print $x->ƟK();'
result[2051]='ok'
tests[404]='use FCGI;sub test {my $s=" ";$s =~ s/ //g;print "ok $s\n";}test();'
result[404]='ok '
init
while getopts "qsScohv" opt
do
if [ "$opt" = "q" ]; then
Q=1
OCMD="$QOCMD"
qq="-qq,"
if [ "$VERS" = "5.6.2" ]; then QOCMD=$OCMD; qq=""; fi
( run in 2.049 seconds using v1.01-cache-2.11-cpan-39bf76dae61 )