Fix ordering in perl subscription_list

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

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 {