Fix list creation, add a method to enumerate a list's subscribers.

[p5sagit/Promulger.git] / lib / App / Promulger / Command / newlist.pm

diff --git a/lib/App/Promulger/Command/newlist.pm b/lib/App/Promulger/Command/newlist.pm
index d9338fb..2b79775 100644 (file)
--- a/lib/App/Promulger/Command/newlist.pm
+++ b/lib/App/Promulger/Command/newlist.pm
@@ -16,6 +16,8 @@ sub run {
   my $listname = $args->[0];
   my $list = Promulger::List->new(
     listname  => $listname,
+    active => 1,
+    subscribers => {},
   );
   $list->setup;
 }