Die if we can't find any databases for the mentioned release.

bd846555 · Andreas Kusalananda Kähäri · e745f369 · bd846555
Commit bd846555 authored Nov 11, 2010 by Andreas Kusalananda Kähäri
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

misc-scripts/production_database/scripts/update_database_list.pl ...ripts/production_database/scripts/update_database_list.pl +5 -0

No files found.
--- a/misc-scripts/production_database/scripts/update_database_list.pl
+++ b/misc-scripts/production_database/scripts/update_database_list.pl
@@ -156,6 +156,11 @@ foreach my $server (@servers) {
  $dbh->disconnect();
 } ## end foreach my $server (@servers)

+if ( scalar( keys(%databases) ) == 0 ) {
+  die(sprintf( "Did not find any databases for release %d\n", $release )
+  );
+}
+
 {
  my $dsn = sprintf( 'DBI:mysql:host=%s;port=%d;database=%s',
                     $master, $dbport, 'ensembl_production' );