Skip to content

Instantly share code, notes, and snippets.

View exodist's full-sized avatar

Chad Granum exodist

View GitHub Profile
PID: 508335 (506711)
Kill: 0
A: 508335 (506711)
B: 508335 (508335)
wait 0: -1
Kill: 1
child exits 508335 (508335)
wait 0: -1
Kill: 1
got sigchild
Can't read /home/exodist/projects/Test2/Test2-Harness/cover_db/digests with Cpanel::JSON::XS: garbage after JSON object, at character offset 34070 (before "|") at /home/exodist/perl5/perlbrew/perls/main/lib/site_perl/5.30.0/x86_64-linux/Devel/Cover/DB/IO/JSON.pm line 35, <$fh> chunk 1.
@exodist
exodist / error
Created December 18, 2019 01:07
error
[STDOUT] Step 93/106 : RUN PERL_CPANM_OPT="" cpanm /.docker/docker-files/Test2-Harness-1.000000.tar.gz
[STDOUT] ---> Running in 98a5cdbed1cd
[STDOUT] ! Finding /.docker/docker-files/Test2-Harness-1.000000.tar.gz on cpanmetadb failed.
[STDOUT] ! Finding /.docker/docker-files/Test2-Harness-1.000000.tar.gz () on mirror http://www.cpan.org failed.
[STDOUT] ! Couldn't find module or a distribution /.docker/docker-files/Test2-Harness-1.000000.tar.gz
[STDERR] The command '/bin/sh -c PERL_CPANM_OPT="" cpanm /.docker/docker-files/Test2-Harness-1.000000.tar.gz' returned a non-zero code: 1
package Devel::Prof;
use strict;
use warnings;
our %files;
no warnings 'redefine';
our $on;
BEGIN { $on = 1 };
package Devel::NeedABetterName;
use strict;
use warnings;
our %files;
our $on;
BEGIN {
# Avoid adding [...] stuff to evals in stack traces
$^P ^= (0x200);
Perl_ppaddr_t orig_subhandler;
static OP* my_subhandler(pTHX) {
OP* out = orig_subhandler(aTHX);
char *file = CopFILE(cCOPx(out));
printf("xxx %s\n", file);
return out;
}
package Test2::Plugin::Cover;
use strict;
use warnings;
our $VERSION = '0.000001';
use XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);
1;
keyword BAREWORD_NAME(PARAMS) {BLOCK}
keyword "QUOTED_NAME"(PARAMS) {BLOCK}
Where (PARAMS) are optional.
For params I honestly want to just turn it into {PARAMS} treat it like a hashref definition cause it will always have key/value pairs.
@exodist
exodist / output
Created August 9, 2020 01:39
why?
!perl xxx.pl
Can xxx()
Undefined subroutine &main::xxx called at xxx.pl line 10.
Undefined subroutine &main::xxx called at xxx.pl line 11.
@exodist
exodist / output
Created November 23, 2020 20:38
test
perl test.pl
# Seeded srand with seed '20201123' from local date.
ok 1 - hi
# foo
ok 2 - thesubtest {
ok 1 - hi
# foo
1..1
}
1..2