Skip to content
Snippets Groups Projects
Commit b21529d3 authored by Alessandro Vullo's avatar Alessandro Vullo
Browse files

Fix merge conflicts.

parents 6e79b4b8 8100d9f9
No related branches found
No related tags found
2 merge requests!214Trigger builds on a selection of downstream repos (incl. rest) using TravisCI API,!214Trigger builds on a selection of downstream repos (incl. rest) using TravisCI API
language: perl
language: "perl"
perl:
- '5.14'
......@@ -30,7 +30,7 @@ install:
- cp travisci/MultiTestDB.conf.travisci.mysql modules/t/MultiTestDB.conf.mysql
- cp travisci/MultiTestDB.conf.travisci.SQLite modules/t/MultiTestDB.conf.SQLite
- mysql -u root -h localhost -e 'GRANT ALL PRIVILEGES ON *.* TO "travis"@"%"'
script: "./travisci/harness.sh"
# Add build stage to trigger dependent builds, run sequentially after all test jobs
......
......@@ -35,8 +35,8 @@ my ( @hosts, $host, $user, $pass, $port, $expression, $dbpattern, $file, $result
$user = 'ensro' ;
$pass = '' ;
$port = 3306 ;
@hosts = qw ( ens-staging1 ens-staging2) ;
$port = 4519;
@hosts = qw ( mysql-ens-sta-1 ) ;
GetOptions( "host|dbhost=s", \$host,
"hosts|dbhosts=s", \@hosts,
......@@ -87,7 +87,8 @@ foreach my $host ( @hosts ) {
close FH;
}
my $db = DBI->connect( $dsn, $user, $pass );
my $db = DBI->connect( $dsn, $user, $pass ) or
die "Unable to connect to database(s): $dsn, $user";
my @dbnames = map {$_->[0] } @{ $db->selectall_arrayref( "show databases" ) };
for my $dbname ( @dbnames) {
next if ( $dbname !~ /$dbpattern/ );
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment