From mboxrd@z Thu Jan 1 00:00:00 1970 From: Stefan Schantl To: location@lists.ipfire.org Subject: [PATCH] perl: Add function to gather the license of a database. Date: Sun, 29 Sep 2019 11:55:56 +0200 Message-ID: <20190929095556.10745-1-stefan.schantl@ipfire.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============4442514136748456238==" List-Id: --===============4442514136748456238== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: 7bit Signed-off-by: Stefan Schantl --- 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 # -- 2.20.1 --===============4442514136748456238==--