From d67dd1bf5a247e20141b9907f5a452da73624235 Mon Sep 17 00:00:00 2001 From: Chip Black Date: Mon, 2 Mar 2015 01:55:32 -0600 Subject: [PATCH] Fix ordering in perl subscription_list --- lib/perl/Blerg-Database/lib/Blerg/Database.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/perl/Blerg-Database/lib/Blerg/Database.pm b/lib/perl/Blerg-Database/lib/Blerg/Database.pm index e462860..8d3789a 100644 --- 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 { -- 2.25.1