Fix ordering in perl subscription_list

diff --git a/lib/perl/Blerg-Database/lib/Blerg/Database.pm b/lib/perl/Blerg-Database/lib/Blerg/Database.pm
index e462860..8d3789a 100644 (file)
--- a/lib/perl/Blerg-Database/lib/Blerg/Database.pm
+++ b/lib/perl/Blerg-Database/lib/Blerg/Database.pm
@@ -123,7 +123,7 @@ sub get_subscription_mark {
 sub subscription_list {
     my ($obj) = @_;
     $obj->_ensure_pointer;
-    return Blerg::Database::_subscription_list($obj->{name}, 0, 1);
+    return Blerg::Database::_subscription_list($obj->{name}, 0, -1);
 }
 
 sub mute {