commit 8e695434a2b683e58b6d9ede2c9cce1297c1ba39
parent ad0939f50e5434a86da70eb9ffaa6d0805e7e68b
Author: René Wagner <rwagner@rw-net.de>
Date: Tue, 1 Sep 2020 19:38:02 +0200
fix DB handle leak when cleaning
Diffstat:
1 file changed, 1 insertion(+), 0 deletions(-)
diff --git a/phosta.pl b/phosta.pl
@@ -112,6 +112,7 @@ sub create_db
my $stmt = 'CREATE TABLE photos (file TEXT PRIMARY KEY, maker TEXT, model TEXT, lensmake TEXT, lens TEXT, focallength INTEGER, focallength35mm INTEGER, aperture DECIMAL, exposuretime TEXT, iso INTEGER, flash TEXT, datetimeoriginal DATETIME);';
!$opt_v or say "### DB Statement: $stmt";
my $rv = $dbh->do($stmt);
+ $dbh->disconnect();
}
sub populate