perl: Close database file after it has been read

Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>

diff --git a/src/perl/Location/Location.xs b/src/perl/Location/Location.xs
index 64a38e2e49cf96131692dea7ab5ad77efc2c5459..04b2e1119eadda40fa0118d12ebaa5c761c5ced7 100644 (file)
--- a/src/perl/Location/Location.xs
+++ b/src/perl/Location/Location.xs
@@ -38,6 +38,11 @@ init(file)
                // Parse the database
                struct loc_database* db = NULL;
                err = loc_database_new(ctx, &db, f);
+
+               // We can close the database file straight away
+               // because loc_database_new creates a copy of the file descriptor
+               fclose(f);
+
                if (err) {
                        loc_unref(ctx);