[Bps-public-commit] Test-Chimps-Client branch, master, updated. 1b9b4974a1a6f6bb079e8d4d79be8ba00d8bf347
Alex Vandiver
alexmv at bestpractical.com
Tue Jul 27 12:22:55 EDT 2010
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;
-----------------------------------------------------------------------
More information about the Bps-public-commit
mailing list