work towards s/Moose/Moo/g

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

diff --git a/lib/App/Promulger/Command/newsub.pm b/lib/App/Promulger/Command/newsub.pm
index 567221f..6afce38 100644 (file)
--- a/lib/App/Promulger/Command/newsub.pm
+++ b/lib/App/Promulger/Command/newsub.pm
@@ -16,9 +16,7 @@ sub run {
   my $listname = $args->[0];
   my $list = Promulger::List->resolve($listname);
 
-  if($list) {
-    $list->delete;
-  } else {
+  if(!$list) {
     die "$listname doesn't exist\n";
   }