3 if [[ -n "$SHORT_CIRCUIT_SMOKE" ]] ; then return ; fi
5 CPAN_MIRROR=$(echo "$PERL_CPANM_OPT" | grep -oP -- '--mirror\s+\S+' | head -n 1 | cut -d ' ' -f 2)
6 if ! [[ "$CPAN_MIRROR" =~ "http://" ]] ; then
7 echo_err "Unable to extract primary cpan mirror from PERL_CPANM_OPT - something is wrong"
8 echo_err "PERL_CPANM_OPT: $PERL_CPANM_OPT"
9 CPAN_MIRROR="http://cpan.metacpan.org/"
10 PERL_CPANM_OPT="$PERL_CPANM_OPT --mirror $CPAN_MIRROR"
11 echo_err "Using $CPAN_MIRROR for the time being"
14 # do not set PERLBREW_CPAN_MIRROR - not all backpan-like mirrors have the perl tarballs
15 export PERL_MM_USE_DEFAULT=1 PERL_MM_NONINTERACTIVE=1 PERL_AUTOINSTALL_PREFER_CPAN=1 HARNESS_TIMER=1 MAKEFLAGS="-j$NUMTHREADS"
17 # try CPAN's latest offering if requested
18 if [[ "$DEVREL_DEPS" == "true" ]] ; then
20 PERL_CPANM_OPT="$PERL_CPANM_OPT --dev"
22 # FIXME inline-upgrade cpanm, work around https://github.com/travis-ci/travis-ci/issues/1477
23 cpanm_loc="$(which cpanm)"
24 run_or_err "Upgrading cpanm ($cpanm_loc) to latest stable" \
25 "wget -q -O $cpanm_loc cpanmin.us && chmod a+x $cpanm_loc"
28 # Fixup CPANM_OPT to behave more like a traditional cpan client
29 export PERL_CPANM_OPT="--verbose --no-interactive --no-man-pages $( echo $PERL_CPANM_OPT | sed 's/--skip-satisfied//' )"
31 if [[ -n "$BREWVER" ]] ; then
32 # since perl 5.14 a perl can safely be built concurrently with -j$large
33 # (according to brute force testing and my power bill)
34 if [[ "$BREWVER" == "blead" ]] || perl -Mversion -e "exit !!(version->new(q($BREWVER)) < 5.014)" ; then
35 perlbrew_jopt="$NUMTHREADS"
38 run_or_err "Compiling/installing Perl $BREWVER (without testing, using ${perlbrew_jopt:-1} threads, may take up to 5 minutes)" \
39 "perlbrew install --as $BREWVER --notest --noman --verbose $BREWOPTS -j${perlbrew_jopt:-1} $BREWVER"
41 # can not do 'perlbrew uss' in the run_or_err subshell above, or a $()
42 # furthermore `perlbrew use` returns 0 regardless of whether the perl is
43 # found (won't be there unless compilation suceeded, wich *ALSO* returns 0)
46 if [[ "$( perlbrew use | grep -oP '(?<=Currently using ).+' )" != "$BREWVER" ]] ; then
47 echo_err "Unable to switch to $BREWVER - compilation failed...?"
52 # no brewver - this means a travis perl, which means we want to clean up
53 # the presently installed libs
55 # https://github.com/kentfredric/Dist-Zilla-Plugin-Prereqs-MatchInstalled-All/blob/master/maint-travis-ci/sterilize_env.pl
56 # Only works on 5.12+ (where sitlib was finally properly fixed)
57 elif [[ "$CLEANTEST" == "true" ]] && [[ "$POISON_ENV" != "true" ]] && perl -M5.012 -e 1 &>/dev/null ; then
59 echo_err "$(tstamp) Cleaning precompiled Travis-Perl"
60 perl -M5.012 -MConfig -MFile::Find -e '
62 map { $Config{$_} => 1 }
63 grep { $_ =~ /site(lib|arch)exp$/ }
66 find({ bydepth => 1, no_chdir => 1, follow_fast => 1, wanted => sub {
67 ! $sitedirs->{$_} and ( -d _ ? rmdir : unlink )
68 } }, keys %$sitedirs )
71 echo_err "Post-cleanup contents of sitelib of the pre-compiled Travis-Perl $TRAVIS_PERL_VERSION:"
72 echo_err "$(tree $(perl -MConfig -e 'print $Config{sitelib_stem}'))"
76 # configure CPAN.pm - older versions go into an endless loop
77 # when trying to autoconf themselves
80 require CPAN::FirstTime;
81 *CPAN::FirstTime::conf_sites = sub {};
83 \$CPAN::Config->{urllist} = [qw{ $CPAN_MIRROR }];
84 \$CPAN::Config->{halt_on_failure} = 1;
87 run_or_err "Configuring CPAN.pm" "perl -e '$CPAN_CFG_SCRIPT'"
89 # poison the environment
90 if [[ "$POISON_ENV" = "true" ]] ; then
92 # in addition to making sure tests do not rely on implicid order of
93 # returned results, look through lib, find all mentioned ENVvars and
94 # set them to true and see if anything explodes
96 DBICTEST_SQLITE_REVERSE_DEFAULT_ORDER \
97 $( grep -P '\$ENV\{' -r lib/ --exclude-dir Optional | grep -oP '\bDBIC\w+' | sort -u | grep -vP '^(DBIC_TRACE(_PROFILE)?|DBIC_.+_DEBUG)$' )
99 if [[ -z "${!var}" ]] ; then
101 echo "POISON_ENV: setting $var to 1"
105 # bogus nonexisting DBI_*
106 export DBI_DSN="dbi:ODBC:server=NonexistentServerAddress"
107 export DBI_DRIVER="ADO"
109 # some people do in fact set this - boggle!!!
110 # it of course won't work before 5.8.4
111 if perl -M5.008004 -e 1 &>/dev/null ; then
112 export PERL_STRICTURES_EXTRA=1
115 # emulate a local::lib-like env
116 # trick cpanm into executing true as shell - we just need the find+unpack
117 run_or_err "Downloading latest stable DBIC from CPAN" \
118 "SHELL=/bin/true cpanm --look DBIx::Class"
120 export PERL5LIB="$( ls -d ~/.cpanm/latest-build/DBIx-Class-*/lib | tail -n1 ):$PERL5LIB"
122 # perldoc -l <mod> searches $(pwd)/lib in addition to PERL5LIB etc, hence the cd /
123 echo_err "Latest stable DBIC (without deps) locatable via \$PERL5LIB at $(cd / && perldoc -l DBIx::Class)"
127 if [[ "$CLEANTEST" != "true" ]] ; then
128 # using SQLT if will be available
129 # not doing later because we will be running in a subshell
130 export DBICTEST_SQLT_DEPLOY=1