final bits of code to be useful

[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 d4a386e..d9338fb 100644 (file)
--- a/lib/App/Promulger/Command/newlist.pm
+++ b/lib/App/Promulger/Command/newlist.pm
@@ -12,10 +12,12 @@ sub abstract {
 sub run {
   my ($self, $opt, $args) = @_;
   @$args == 1 or die "pmg newlist needs a list name\n";
+  
+  my $listname = $args->[0];
   my $list = Promulger::List->new(
-    listname  => $args->[0],
+    listname  => $listname,
   );
   $list->setup;
 }
 
-1;
+'Make it so';