Commit | Line | Data |
b58ecb01 |
1 | #!/bin/bash |
2 | |
b58ecb01 |
3 | if [[ -n "$SHORT_CIRCUIT_SMOKE" ]] ; then return ; fi |
4 | |
c4c7254d |
5 | # we need a mirror that both has the standard index and a backpan version rolled |
6 | # into one, due to MDV testing |
7 | CPAN_MIRROR="http://cpan.metacpan.org/" |
8 | |
9 | PERL_CPANM_OPT="$PERL_CPANM_OPT --mirror $CPAN_MIRROR" |
b58ecb01 |
10 | |
07292953 |
11 | # do not set PERLBREW_CPAN_MIRROR - not all backpan-like mirrors have the perl tarballs |
86370cc7 |
12 | export PERL_MM_USE_DEFAULT=1 PERL_MM_NONINTERACTIVE=1 PERL_AUTOINSTALL_PREFER_CPAN=1 HARNESS_TIMER=1 MAKEFLAGS="-j$NUMTHREADS" |
b58ecb01 |
13 | |
2f51deb1 |
14 | # try CPAN's latest offering if requested |
15 | if [[ "$DEVREL_DEPS" == "true" ]] ; then |
16 | |
2f51deb1 |
17 | PERL_CPANM_OPT="$PERL_CPANM_OPT --dev" |
18 | |
8cddfc1b |
19 | # FIXME inline-upgrade cpanm, work around https://github.com/travis-ci/travis-ci/issues/1477 |
20 | cpanm_loc="$(which cpanm)" |
21 | run_or_err "Upgrading cpanm ($cpanm_loc) to latest stable" \ |
22 | "wget -q -O $cpanm_loc cpanmin.us && chmod a+x $cpanm_loc" |
2f51deb1 |
23 | fi |
24 | |
b58ecb01 |
25 | # Fixup CPANM_OPT to behave more like a traditional cpan client |
a1f6d93c |
26 | export PERL_CPANM_OPT="--verbose --no-interactive --no-man-pages $( echo $PERL_CPANM_OPT | sed 's/--skip-satisfied//' )" |
b58ecb01 |
27 | |
28 | if [[ -n "$BREWVER" ]] ; then |
4bbabf15 |
29 | # since perl 5.14 a perl can safely be built concurrently with -j$large |
30 | # (according to brute force testing and my power bill) |
31 | if [[ "$BREWVER" == "blead" ]] || perl -Mversion -e "exit !!(version->new(q($BREWVER)) < 5.014)" ; then |
32 | perlbrew_jopt="$NUMTHREADS" |
33 | fi |
34 | |
35 | run_or_err "Compiling/installing Perl $BREWVER (without testing, using ${perlbrew_jopt:-1} threads, may take up to 5 minutes)" \ |
36 | "perlbrew install --as $BREWVER --notest --noman --verbose $BREWOPTS -j${perlbrew_jopt:-1} $BREWVER" |
b58ecb01 |
37 | |
d2b1fee9 |
38 | # can not do 'perlbrew uss' in the run_or_err subshell above, or a $() |
39 | # furthermore `perlbrew use` returns 0 regardless of whether the perl is |
40 | # found (won't be there unless compilation suceeded, wich *ALSO* returns 0) |
41 | perlbrew use $BREWVER |
42 | |
43 | if [[ "$( perlbrew use | grep -oP '(?<=Currently using ).+' )" != "$BREWVER" ]] ; then |
44 | echo_err "Unable to switch to $BREWVER - compilation failed...?" |
45 | echo_err "$LASTOUT" |
46 | exit 1 |
47 | fi |
48 | |
2c754d14 |
49 | # no brewver - this means a travis perl, which means we want to clean up |
50 | # the presently installed libs |
51 | # Idea stolen from |
52 | # https://github.com/kentfredric/Dist-Zilla-Plugin-Prereqs-MatchInstalled-All/blob/master/maint-travis-ci/sterilize_env.pl |
53 | elif [[ "$CLEANTEST" == "true" ]] && [[ "$POISON_ENV" != "true" ]] ; then |
54 | |
55 | echo_err "$(tstamp) Cleaning precompiled Travis-Perl" |
56 | perl -MConfig -MFile::Find -e ' |
57 | my $sitedirs = { |
58 | map { $Config{$_} => 1 } |
59 | grep { $_ =~ /site(lib|arch)exp$/ } |
60 | keys %Config |
61 | }; |
62 | find({ bydepth => 1, no_chdir => 1, follow_fast => 1, wanted => sub { |
63 | ! $sitedirs->{$_} and ( -d _ ? rmdir : unlink ) |
64 | } }, keys %$sitedirs ) |
65 | ' |
66 | |
67 | echo_err "Post-cleanup contents of sitelib of the pre-compiled Travis-Perl $TRAVIS_PERL_VERSION:" |
68 | echo_err "$(tree $(perl -MConfig -e 'print $Config{sitelib_stem}'))" |
69 | echo_err |
b58ecb01 |
70 | fi |
71 | |
72 | # configure CPAN.pm - older versions go into an endless loop |
73 | # when trying to autoconf themselves |
74 | CPAN_CFG_SCRIPT=" |
75 | require CPAN; |
76 | require CPAN::FirstTime; |
77 | *CPAN::FirstTime::conf_sites = sub {}; |
78 | CPAN::Config->load; |
b2435630 |
79 | \$CPAN::Config->{urllist} = [qw{ $CPAN_MIRROR }]; |
b58ecb01 |
80 | \$CPAN::Config->{halt_on_failure} = 1; |
81 | CPAN::Config->commit; |
82 | " |
83 | run_or_err "Configuring CPAN.pm" "perl -e '$CPAN_CFG_SCRIPT'" |
c4c7254d |
84 | |
85 | # poison the environment |
86 | if [[ "$POISON_ENV" = "true" ]] ; then |
87 | |
88 | # in addition to making sure tests do not rely on implicid order of |
89 | # returned results, look through lib, find all mentioned ENVvars and |
90 | # set them to true and see if anything explodes |
91 | for var in \ |
92 | DBICTEST_SQLITE_REVERSE_DEFAULT_ORDER \ |
93 | $(grep -P '\$ENV\{' -r lib/ --exclude-dir Optional | grep -oP '\bDBIC\w+' | sort -u | grep -v DBIC_TRACE) |
94 | do |
95 | if [[ -z "${!var}" ]] ; then |
96 | export $var=1 |
97 | echo "POISON_ENV: setting $var to 1" |
98 | fi |
99 | done |
100 | |
101 | # bogus nonexisting DBI_* |
102 | export DBI_DSN="dbi:ODBC:server=NonexistentServerAddress" |
103 | export DBI_DRIVER="ADO" |
104 | |
105 | # some people do in fact set this - boggle!!! |
106 | export PERL_STRICTURES_EXTRA=1 |
107 | |
108 | # emulate a local::lib-like env |
109 | # trick cpanm into executing true as shell - we just need the find+unpack |
110 | run_or_err "Downloading latest stable DBIC from CPAN" \ |
111 | "SHELL=/bin/true cpanm --look DBIx::Class" |
112 | |
113 | export PERL5LIB="$( ls -d ~/.cpanm/latest-build/DBIx-Class-*/lib | tail -n1 ):$PERL5LIB" |
114 | |
115 | # perldoc -l <mod> searches $(pwd)/lib in addition to PERL5LIB etc, hence the cd / |
116 | echo_err "Latest stable DBIC (without deps) locatable via \$PERL5LIB at $(cd / && perldoc -l DBIx::Class)" |
117 | |
118 | fi |
119 | |
120 | if [[ "$CLEANTEST" != "true" ]] ; then |
121 | # using SQLT if will be available |
122 | # not doing later because we will be running in a subshell |
123 | export DBICTEST_SQLT_DEPLOY=1 |
124 | |
125 | fi |