123456789101112 #!/usr/bin/env perluse strict;use warnings;use utf8;use FindBin;use lib "$FindBin::Bin/lib";use tools;diag("\e[31mLast 4000 lines of cpanm build log\e[0m");safe_exec( 'tail', '-n', '4000', $ENV{HOME} . '/.cpanm/build.log' );
#!/usr/bin/env perl
use
strict;
warnings;
utf8;
FindBin;
lib
"$FindBin::Bin/lib"
;
tools;
diag(
"\e[31mLast 4000 lines of cpanm build log\e[0m"
);
safe_exec(
'tail'
,
'-n'
'4000'
$ENV
{HOME} .
'/.cpanm/build.log'