perl: Add function to gather the license of a database.

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

src/perl/Location/Location.xs

@@ -79,6 +79,16 @@ get_description(db)
 	OUTPUT:
 		RETVAL
 
+const char*
+get_license(db)
+	struct loc_database* db;
+
+	CODE:
+		// Get database license
+		RETVAL = loc_database_get_license(db);
+	OUTPUT:
+		RETVAL
+
 #
 # Lookup functions
 #