Author: eelco
Date: Thu Jun 16 11:05:55 2011
New Revision: 27479
URL: https://svn.nixos.org/websvn/nix/?rev=27479&sc=1

Log:
* Use ‘--deploy’ to do deployment.

Modified:
   cloud/trunk/src/nixos-deploy-network.pl

Modified: cloud/trunk/src/nixos-deploy-network.pl
==============================================================================
--- cloud/trunk/src/nixos-deploy-network.pl     Thu Jun 16 08:08:10 2011        
(r27478)
+++ cloud/trunk/src/nixos-deploy-network.pl     Thu Jun 16 11:05:55 2011        
(r27479)
@@ -44,15 +44,18 @@
 
 
 sub main {
-    my $op = \&opDeploy;
+    my $op;
     
     exit 1 unless GetOptions(
         "state|s=s" => \$stateFile,
         "info|i" => sub { $op = \&opInfo; },
         "check|c" => sub { $op = \&opCheck; },
         "destroy" => sub { $op = \&opDestroy; },
+        "deploy" => sub { $op = \&opDeploy; },
         "kill-obsolete|k!" => \$killObsolete,
         );
+
+    die "$0: You must specify an operation.\n" unless defined $op;
     
     @networkExprs = @ARGV;
 
_______________________________________________
nix-commits mailing list
nix-comm...@cs.uu.nl
http://mail.cs.uu.nl/mailman/listinfo/nix-commits

Reply via email to