Update password storage to a more compact form

[blerg.git] / lib / perl / Blerg-Database / Database.xs

diff --git a/lib/perl/Blerg-Database/Database.xs b/lib/perl/Blerg-Database/Database.xs
index a3f87a5..1911538 100644 (file)
--- a/lib/perl/Blerg-Database/Database.xs
+++ b/lib/perl/Blerg-Database/Database.xs
@@ -32,6 +32,12 @@ MODULE = Blerg::Database             PACKAGE = Blerg::Database
 INCLUDE: const-xs.inc
 PROTOTYPES: ENABLE
 
+int init()
+    CODE:
+        RETVAL = blerg_init();
+    OUTPUT:
+        RETVAL
+
 int exists(const char *name)
     CODE:
         RETVAL = blerg_exists(name);
@@ -131,6 +137,7 @@ void tag_list(const char *tag, const char *str_offset, int direction)
         int count, i;
     PPCODE:
         offset = strtoull(str_offset, NULL, 0);
+        count = 50;
         list = tag_list(tag, offset, &count, direction);
         if (list == NULL) {
             XSRETURN_EMPTY;
@@ -156,6 +163,7 @@ void _subscription_list(const char *author, const char *str_offset, int directio
         int count, i;
     PPCODE:
         offset = strtoull(str_offset, NULL, 0);
+        count = 50;
         list = subscription_list(author, offset, &count, direction);
         if (list == NULL) {
             XSRETURN_EMPTY;