--- trunk/vz-remove.pl	2008/02/08 23:02:25	40
+++ trunk/vz-remove.pl	2008/02/08 23:53:52	43
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 use strict;
-use Shell qw/rm vzlist vzctl/;
+use Shell qw/rm/;
 
 use lib 'lib';
 use VZ;
@@ -9,11 +9,11 @@
 
 my $VEID = shift @ARGV;
 
-die "Usage: $0 VEID\n\n", join("\n",vzlist_configs()),"\n" unless $VEID;
+die "Usage: $0 VEID\n\n", join("\n",conf_veids()),"\n" unless $VEID;
 
 my $c = "$vz_conf/$VEID.conf";
 if ( -e $c ) {
-	vzctl('stop', $VEID);
+	vzctl('stop', $VEID) if defined( vzlist( hash => 1 )->{ $VEID } );
 	unlink $c || die "can't remove $c: $!";
 	warn "# removed $c\n";
 } else {