From: Chip Black <bytex64@bytex64.net>
Date: Tue, 19 Nov 2013 10:40:12 +0000 (-0600)
Subject: Return empty lists for list functions instead of undef
X-Git-Tag: v1.9~44
X-Git-Url: http://git.bytex64.net/?a=commitdiff_plain;h=04ffc0f160e4d2f6c74aa2a5d874a4fa77e53fbb;hp=ace197d65d7bcc6b23e46e085b433991040238f8;p=blerg.git

Return empty lists for list functions instead of undef
---

diff --git a/lib/perl/Blerg-Database/Database.xs b/lib/perl/Blerg-Database/Database.xs
index 04406c8..69d2442 100644
--- a/lib/perl/Blerg-Database/Database.xs
+++ b/lib/perl/Blerg-Database/Database.xs
@@ -132,7 +132,7 @@ void tag_list(const char *tag, const char *str_offset, int direction)
         offset = strtoull(str_offset, NULL, 0);
         list = tag_list(tag, offset, &count, direction);
         if (list == NULL) {
-            XSRETURN_UNDEF;
+            XSRETURN_EMPTY;
         }
 
         i = count - 1;
@@ -165,7 +165,7 @@ void _subscription_list(const char *author, const char *str_offset, int directio
         offset = strtoull(str_offset, NULL, 0);
         list = subscription_list(author, offset, &count, direction);
         if (list == NULL) {
-            XSRETURN_UNDEF;
+            XSRETURN_EMPTY;
         }
 
         i = count - 1;