[Bps-public-commit] Test-Chimps-Client branch, master, updated. 1b9b4974a1a6f6bb079e8d4d79be8ba00d8bf347

[Alex Vandiver]

The branch, master has been updated
       via  1b9b4974a1a6f6bb079e8d4d79be8ba00d8bf347 (commit)
      from  4b048ac046326b8f4cefc5e220268ebd12862301 (commit)

Summary of changes:
 examples/pg_dbs_cleaner.pl |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit 1b9b4974a1a6f6bb079e8d4d79be8ba00d8bf347
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Tue Jul 27 12:24:47 2010 -0400

    Don't die if there are no DBs to clean

diff --git a/examples/pg_dbs_cleaner.pl b/examples/pg_dbs_cleaner.pl
index b8ee364..8ce3a1b 100644
--- a/examples/pg_dbs_cleaner.pl
+++ b/examples/pg_dbs_cleaner.pl
@@ -17,7 +17,7 @@ unless ( grep $_ eq '--clean', @args ) {
     my %skip = map { chomp; $_ => 1 } <>;
 
     my @dbs = grep !$skip{ $_ }, list_dbs();
-    return unless @dbs;
+    exit unless @dbs;
 
     my $dbh = DBI->connect("dbi:Pg:dbname=template1","postgres","",{RaiseError => 1});
     $dbh->do("DROP DATABASE $_") for @dbs;

-----------------------------------------------------------------------