--- trunk/lib/VZ.pm	2008/02/09 00:28:10	44
+++ trunk/lib/VZ.pm	2008/03/30 12:48:18	46
@@ -110,15 +110,18 @@
 sub runscript {
 	my ( $veid, $path ) = @_;
 
-	open(my $fh, $path) || die "can't open $path: $!";
-	while(<$fh>) {
-		chomp;
-		next if (m/^\s*$/);
-		if (/^#\s+(.+)$/) {
-			warn ">> $1\n";
-		} else {
-			vzctl('exec', $veid, $_);
+	if ( open(my $fh, $path) ) {
+		while(<$fh>) {
+			chomp;
+			next if (m/^\s*$/);
+			if (/^#\s+(.+)$/) {
+				warn ">> $1\n";
+			} else {
+				vzctl('exec', $veid, $_);
+			}
 		}
+	} else {
+		warn "can't open $path: $!";
 	}
 }