X-Git-Url: http://git.rot13.org/?p=pxelator;a=blobdiff_plain;f=lib%2FPXElator%2Fkvm.pm;h=5cbc0bc7966f8e4cb34983eb0b98fb37e0c49be6;hp=558cc4d87def8c97d9c098b8c5a81054cd553213;hb=1eb810bde5a8b780607cb85e2d50fb6ab450ad73;hpb=f51de5d9e62fbe7abe87dc3a7f3ec996dfe6db19

diff --git a/lib/PXElator/kvm.pm b/lib/PXElator/kvm.pm
index 558cc4d..5cbc0bc 100644
--- a/lib/PXElator/kvm.pm
+++ b/lib/PXElator/kvm.pm
@@ -74,10 +74,11 @@ sub start {
 	my $name = client::conf( $ip, 'hostname' );
 	$name ||= $nr;
 
+	my $kvm_bin = client::conf( $ip => 'kvm.bin' ) || 'kvm';
 	my $boot = client::conf( $ip, 'kvm.boot' ) || 'n'; # network by default
 
 	my $kvm = qq|
-		kvm
+		$kvm_bin
 		-name "$name"
 		-m $memory_size -net nic,macaddr=$mac
 		-net tap,ifname=$ifname,script=no
@@ -98,7 +99,7 @@ sub start {
 
 sub nr_from_mac {
 	my $mac = shift;
-	$mac =~ s{^.+:([0-9a-f]{2})$}{hex($1)}e;
+	$mac =~ s<^.+:([0-9a-f]{2})$><hex($1)>e;
 	$mac;
 }