Commit | Line | Data |
b58ecb01 |
1 | #!/bin/bash |
2 | |
b58ecb01 |
3 | if [[ -n "$SHORT_CIRCUIT_SMOKE" ]] ; then return ; fi |
4 | |
b2435630 |
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 |
b58ecb01 |
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" |
07292953 |
9 | CPAN_MIRROR="http://cpan.metacpan.org/" |
d71417ff |
10 | PERL_CPANM_OPT="$PERL_CPANM_OPT --mirror $CPAN_MIRROR" |
b2435630 |
11 | echo_err "Using $CPAN_MIRROR for the time being" |
b58ecb01 |
12 | fi |
13 | |
07292953 |
14 | # do not set PERLBREW_CPAN_MIRROR - not all backpan-like mirrors have the perl tarballs |
86370cc7 |
15 | export PERL_MM_USE_DEFAULT=1 PERL_MM_NONINTERACTIVE=1 PERL_AUTOINSTALL_PREFER_CPAN=1 HARNESS_TIMER=1 MAKEFLAGS="-j$NUMTHREADS" |
b58ecb01 |
16 | |
2f51deb1 |
17 | # try CPAN's latest offering if requested |
18 | if [[ "$DEVREL_DEPS" == "true" ]] ; then |
19 | |
2f51deb1 |
20 | PERL_CPANM_OPT="$PERL_CPANM_OPT --dev" |
21 | |
8cddfc1b |
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" |
2f51deb1 |
26 | fi |
27 | |
b58ecb01 |
28 | # Fixup CPANM_OPT to behave more like a traditional cpan client |
a1f6d93c |
29 | export PERL_CPANM_OPT="--verbose --no-interactive --no-man-pages $( echo $PERL_CPANM_OPT | sed 's/--skip-satisfied//' )" |
b58ecb01 |
30 | |
31 | if [[ -n "$BREWVER" ]] ; then |
4bbabf15 |
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" |
36 | fi |
37 | |
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" |
b58ecb01 |
40 | |
d2b1fee9 |
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) |
44 | perlbrew use $BREWVER |
45 | |
46 | if [[ "$( perlbrew use | grep -oP '(?<=Currently using ).+' )" != "$BREWVER" ]] ; then |
47 | echo_err "Unable to switch to $BREWVER - compilation failed...?" |
48 | echo_err "$LASTOUT" |
49 | exit 1 |
50 | fi |
51 | |
2c754d14 |
52 | # no brewver - this means a travis perl, which means we want to clean up |
53 | # the presently installed libs |
54 | # Idea stolen from |
55 | # https://github.com/kentfredric/Dist-Zilla-Plugin-Prereqs-MatchInstalled-All/blob/master/maint-travis-ci/sterilize_env.pl |
e52712a8 |
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 |
2c754d14 |
58 | |
59 | echo_err "$(tstamp) Cleaning precompiled Travis-Perl" |
e52712a8 |
60 | perl -M5.012 -MConfig -MFile::Find -e ' |
2c754d14 |
61 | my $sitedirs = { |
62 | map { $Config{$_} => 1 } |
63 | grep { $_ =~ /site(lib|arch)exp$/ } |
64 | keys %Config |
65 | }; |
66 | find({ bydepth => 1, no_chdir => 1, follow_fast => 1, wanted => sub { |
67 | ! $sitedirs->{$_} and ( -d _ ? rmdir : unlink ) |
68 | } }, keys %$sitedirs ) |
69 | ' |
70 | |
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}'))" |
73 | echo_err |
b58ecb01 |
74 | fi |
75 | |
76 | # configure CPAN.pm - older versions go into an endless loop |
77 | # when trying to autoconf themselves |
78 | CPAN_CFG_SCRIPT=" |
79 | require CPAN; |
80 | require CPAN::FirstTime; |
81 | *CPAN::FirstTime::conf_sites = sub {}; |
82 | CPAN::Config->load; |
b2435630 |
83 | \$CPAN::Config->{urllist} = [qw{ $CPAN_MIRROR }]; |
b58ecb01 |
84 | \$CPAN::Config->{halt_on_failure} = 1; |
85 | CPAN::Config->commit; |
86 | " |
87 | run_or_err "Configuring CPAN.pm" "perl -e '$CPAN_CFG_SCRIPT'" |
afeb40d2 |
88 | |
89 | # poison the environment |
90 | if [[ "$POISON_ENV" = "true" ]] ; then |
91 | |
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 |
95 | for var in \ |
96 | DBICTEST_SQLITE_REVERSE_DEFAULT_ORDER \ |
e52712a8 |
97 | $( grep -P '\$ENV\{' -r lib/ --exclude-dir Optional | grep -oP '\bDBIC\w+' | sort -u | grep -vP '^(DBIC_TRACE(_PROFILE)?|DBIC_.+_DEBUG)$' ) |
afeb40d2 |
98 | do |
99 | if [[ -z "${!var}" ]] ; then |
100 | export $var=1 |
101 | echo "POISON_ENV: setting $var to 1" |
102 | fi |
103 | done |
104 | |
105 | # bogus nonexisting DBI_* |
106 | export DBI_DSN="dbi:ODBC:server=NonexistentServerAddress" |
107 | export DBI_DRIVER="ADO" |
108 | |
109 | # some people do in fact set this - boggle!!! |
e52712a8 |
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 |
113 | fi |
afeb40d2 |
114 | |
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" |
119 | |
120 | export PERL5LIB="$( ls -d ~/.cpanm/latest-build/DBIx-Class-*/lib | tail -n1 ):$PERL5LIB" |
121 | |
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)" |
124 | |
125 | fi |
126 | |
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 |
131 | |
132 | fi |