perl: Add function to get the description of the database.

[people/ms/libloc.git] / src / perl / Location / Location.xs

diff --git a/src/perl/Location/Location.xs b/src/perl/Location/Location.xs
index f94ca3136daec76640092fba5f0c98b822fd6efd..496fc43e100282fd05f09d003eb922664be02d8a 100644 (file)
--- a/src/perl/Location/Location.xs
+++ b/src/perl/Location/Location.xs
@@ -69,6 +69,16 @@ get_vendor(db)
        OUTPUT:
                RETVAL
 
+const char*
+get_description(db)
+       struct loc_database* db;
+
+       CODE:
+               // Get database description
+               RETVAL = loc_database_get_description(db);
+       OUTPUT:
+               RETVAL
+
 #
 # Lookup functions
 #