From 04ffc0f160e4d2f6c74aa2a5d874a4fa77e53fbb Mon Sep 17 00:00:00 2001 From: Chip Black Date: Tue, 19 Nov 2013 04:40:12 -0600 Subject: [PATCH 1/1] Return empty lists for list functions instead of undef --- lib/perl/Blerg-Database/Database.xs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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; -- 2.25.1