location-functions.pl: Add END block to release the database handle.

Reference #12515.

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>

diff --git a/config/cfgroot/location-functions.pl b/config/cfgroot/location-functions.pl
index 9b1d0bfb5018e032bce12c733c6b108c4b6f92c2..4837030161c1ed14093837dea2e839c58b0a4c15 100644 (file)
--- a/config/cfgroot/location-functions.pl
+++ b/config/cfgroot/location-functions.pl
@@ -218,4 +218,14 @@ sub address_has_flags($) {
        return @flags;
 }
 
+# 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;