From 1eb810bde5a8b780607cb85e2d50fb6ab450ad73 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 21 Jul 2010 17:50:32 +0000
Subject: [PATCH] configure kvm.bin so we can call qemu-system-i386 if needed

---
 lib/PXElator/kvm.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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;
 }
 
-- 
2.20.1