perl: Move database functions up and lookup functions down

Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>

diff --git a/src/perl/Location/Location.xs b/src/perl/Location/Location.xs
index 6fbf2234395ab465142e9f5660d916666db6e787..9e98aed600909461196a002440fdb850b1be4541 100644 (file)
--- a/src/perl/Location/Location.xs
+++ b/src/perl/Location/Location.xs
@@ -56,6 +56,22 @@ init(file)
        OUTPUT:
                RETVAL
 
+/*
+ * Database functions
+ */
+const char*
+get_vendor(db)
+       struct loc_database* db;
+
+       CODE:
+               // Get vendor
+               RETVAL = loc_database_get_vendor(db);
+       OUTPUT:
+               RETVAL
+
+/*
+ * Lookup functions
+ */
 char*
 lookup_country_code(db, address)
        struct loc_database* db;
@@ -81,18 +97,6 @@ lookup_country_code(db, address)
        OUTPUT:
                RETVAL
 
-
-
-const char*
-get_vendor(db)
-       struct loc_database* db;
-
-       CODE:
-               // Get vendor
-               RETVAL = loc_database_get_vendor(db);
-       OUTPUT:
-               RETVAL
-
 void
 DESTROY(db)
        struct loc_database* db;