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

Signed-off-by: Stefan Schantl stefan.schantl@ipfire.org --- src/perl/Location/Location.xs | 10 ++++++++++ 1 file changed, 10 insertions(+)

diff --git a/src/perl/Location/Location.xs b/src/perl/Location/Location.xs index 496fc43..ab27f0b 100644 --- a/src/perl/Location/Location.xs +++ b/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 #