reorded
authorHeiko Schlittermann <hs@schlittermann.de>
Wed, 26 Aug 2009 16:04:02 +0200
changeset 11 48ec3ee16cd8
parent 10 f48202d2c4a0
child 12 c372a47ee501
reorded
kvmtool
--- a/kvmtool	Tue Aug 25 23:28:40 2009 +0200
+++ b/kvmtool	Wed Aug 26 16:04:02 2009 +0200
@@ -63,19 +63,6 @@
 
 }
 
-sub cmd_kill(@) {
-    my ($kvm) = @_;
-    pod2usage() if not defined $kvm;
-    my $config = config->load_running_config(_running_config_file $kvm);
-    my $pidfile = $config->get("-pidfile");
-    my $pid = slurp $pidfile, { chomp => 1 };
-
-    kill $KILL => $pid;
-    waitpid($pid, 0);
-    unlink $pidfile, _monitor_link $kvm, _running_config_file $kvm;
-
-}
-
 sub cmd_start(@) {
     my ($kvm) = @_;
     pod2usage() if not defined $kvm;
@@ -183,6 +170,20 @@
     system("stty $termio");
 }
 
+sub cmd_kill(@) {
+    my ($kvm) = @_;
+    pod2usage() if not defined $kvm;
+    my $config = config->load_running_config(_running_config_file $kvm);
+    my $pidfile = $config->get("-pidfile");
+    my $pid = slurp $pidfile, { chomp => 1 };
+
+    kill $KILL => $pid;
+    waitpid($pid, 0);
+    unlink $pidfile, _monitor_link $kvm, _running_config_file $kvm;
+
+}
+
+
 {
 
     package config;
@@ -287,14 +288,14 @@
 Use the specified configuration instead of the one once imported.
 (default: I<undef>)
 
+=item B<--dev>=I<device>
+
+Pathname of the KVM device. (default: F</dev/kvm>)
+
 =item B<-i>|B<--import> 
 
 Import the specified configuration. (default: I<undef>)
 
-=item B<--dev>=I<device>
-
-Pathname of the KVM device. (default: /dev/kvm)
-
 =item B<-h>|B<--help>
 
 Show a short help page.