Expire sessions after about one week, instead of at browser close.

In response to a gripe by Tom Lane.

1 files changed, 4 insertions, 5 deletions

diff --git a/perl-lib/PgCommitFest/Request.pm b/perl-lib/PgCommitFest/Request.pm
index dc75d92..9710c5d 100644
--- a/perl-lib/PgCommitFest/Request.pm
+++ b/perl-lib/PgCommitFest/Request.pm
@@ -118,11 +118,10 @@ sub control {
 
 sub db {
 	my ($self) = @_;
-	if (!defined $self->{'db'}) {
-		$self->{'db'} =
-			PgCommitFest::DB->connect($PG, $PGUSERNAME, $PGPASSWORD);
-	}
-	return $self->{'db'};
+	return $self->{'db'} if ref $self && defined $self->{'db'};
+	my $db = PgCommitFest::DB->connect($PG, $PGUSERNAME, $PGPASSWORD);
+	$self->{'db'} = $db if ref $self;
+	return $db;
 }
 
 sub db_is_connected {