From mboxrd@z Thu Jan 1 00:00:00 1970 From: Stefan Schantl To: development@lists.ipfire.org Subject: [PATCH 2/5] location-functions.pl: Add END block to release the database handle. Date: Sat, 07 Nov 2020 19:47:21 +0100 Message-ID: <20201107184724.3590-2-stefan.schantl@ipfire.org> In-Reply-To: <20201107184724.3590-1-stefan.schantl@ipfire.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============6728235663053425623==" List-Id: --===============6728235663053425623== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable Reference #12515. Signed-off-by: Stefan Schantl --- config/cfgroot/location-functions.pl | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/config/cfgroot/location-functions.pl b/config/cfgroot/location-f= unctions.pl index 9b1d0bfb5..483703016 100644 --- a/config/cfgroot/location-functions.pl +++ b/config/cfgroot/location-functions.pl @@ -218,4 +218,14 @@ sub address_has_flags($) { return @flags; } =20 +# Custom END declaration which will be executed when perl +# ends, to release the database handle to libloc. +END { + # Check if a database handle exists. + if ($db_handle) { + # Destroy libloc database handle. + &Location::DESTROY($db_handle); + } +} + 1; --=20 2.20.1 --===============6728235663053425623==--