maint/travis-ci_scripts/20_install.bash

   1 #!/bin/bash
   2
   3 if [[ -n "$SHORT_CIRCUIT_SMOKE" ]] ; then return ; fi
   4
   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"
  10
  11 # do not set PERLBREW_CPAN_MIRROR - not all backpan-like mirrors have the perl tarballs
  12 export PERL_MM_USE_DEFAULT=1 PERL_MM_NONINTERACTIVE=1 PERL_AUTOINSTALL_PREFER_CPAN=1 HARNESS_TIMER=1 MAKEFLAGS="-j$NUMTHREADS"
  13
  14 # try CPAN's latest offering if requested
  15 if [[ "$DEVREL_DEPS" == "true" ]] ; then
  16
  17   PERL_CPANM_OPT="$PERL_CPANM_OPT --dev"
  18
  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"
  23 fi
  24
  25 # Fixup CPANM_OPT to behave more like a traditional cpan client
  26 export PERL_CPANM_OPT="--verbose --no-interactive --no-man-pages $( echo $PERL_CPANM_OPT | sed 's/--skip-satisfied//' )"
  27
  28 if [[ -n "$BREWVER" ]] ; then
  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"
  37
  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
  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
  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;
  79   \$CPAN::Config->{urllist} = [qw{ $CPAN_MIRROR }];
  80   \$CPAN::Config->{halt_on_failure} = 1;
  81   CPAN::Config->commit;
  82 "
  83 run_or_err "Configuring CPAN.pm" "perl -e '$CPAN_CFG_SCRIPT'"
  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_USE_FILE \
  93     DBICTEST_SQLITE_REVERSE_DEFAULT_ORDER \
  94     $(grep -P '\$ENV\{' -r lib/ --exclude-dir Optional | grep -oP '\bDBIC\w+' | sort -u | grep -v DBIC_TRACE)
  95   do
  96     if [[ -z "${!var}" ]] ; then
  97       export $var=1
  98       echo "POISON_ENV: setting $var to 1"
  99     fi
 100   done
 101
 102   # bogus nonexisting DBI_*
 103   export DBI_DSN="dbi:ODBC:server=NonexistentServerAddress"
 104   export DBI_DRIVER="ADO"
 105
 106   # some people do in fact set this - boggle!!!
 107   export PERL_STRICTURES_EXTRA=1
 108
 109   # emulate a local::lib-like env
 110   # trick cpanm into executing true as shell - we just need the find+unpack
 111   run_or_err "Downloading latest stable DBIC from CPAN" \
 112     "SHELL=/bin/true cpanm --look DBIx::Class"
 113
 114   export PERL5LIB="$( ls -d ~/.cpanm/latest-build/DBIx-Class-*/lib | tail -n1 ):$PERL5LIB"
 115
 116   # perldoc -l <mod> searches $(pwd)/lib in addition to PERL5LIB etc, hence the cd /
 117   echo_err "Latest stable DBIC (without deps) locatable via \$PERL5LIB at $(cd / && perldoc -l DBIx::Class)"
 118
 119 fi
 120
 121 if [[ "$CLEANTEST" != "true" ]] ; then
 122   # using SQLT if will be available
 123   # not doing later because we will be running in a subshell
 124   export DBICTEST_SQLT_DEPLOY=1
 125
 126 fi