#!/usr/bin/env perl
use
lib
"$FindBin::Bin/lib"
;
if
( not env_exists(
'TRAVIS'
) ) {
diag(
'Is not running under travis!'
);
exit
1;
}
if
( not env_exists(
'STERILIZE_ENV'
) ) {
diag(
"\e[31STERILIZE_ENV is not set, skipping, because this is probably Travis's Default ( and unwanted ) target"
);
exit
0;
}
my
(
$branch
) =
$ENV
{TRAVIS_BRANCH};
my
(
$prefix
) =
'./.travis_early_installdeps.'
;
$branch
=~ s{/}{_}g;
my
(
$depsfile
) = (
$prefix
.
$branch
);
my
(
$paramsfile
) = (
$prefix
.
'params.'
.
$branch
);
if
( not( -e
$depsfile
and -f
$depsfile
) ) {
diag(
"\e[31m$depsfile does not exist, no extra deps\e[0m"
);
exit
0;
}
my
(
@deps
) =
split
/\n/,
do
{
open
my
$fh
,
'<'
,
$depsfile
;
local
$/ =
undef
;
scalar
<
$fh
>;
};
if
( -e
$paramsfile
and -f
$paramsfile
) {
push
@params
,
split
/\n/,
do
{
open
my
$fh
,
'<'
,
$paramsfile
;
local
$/ =
undef
;
scalar
<
$fh
>;
};
}
cpanm(
@params
,
@deps
);
exit
0;