From 767c656a0d463faa2f2445b1d94e8693c0ed0032 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 9 Dec 2008 15:43:40 +0000
Subject: [PATCH] -Fix syntax errors in Xen plugin patch previously applied

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2533 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/xcat/plugins/xen.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/xCAT-server/lib/xcat/plugins/xen.pm b/xCAT-server/lib/xcat/plugins/xen.pm
index ec26d585b..497f7438f 100644
--- a/xCAT-server/lib/xcat/plugins/xen.pm
+++ b/xCAT-server/lib/xcat/plugins/xen.pm
@@ -117,11 +117,11 @@ sub build_diskstruct {
     if (defined $vmhash->{$node}->[0]->{storage}) {
         my $disklocs=$vmhash->{$node}->[0]->{storage};
         my @locations=split /\|/,$disklocs;
-        foreach $disk (@locations) {
+        foreach my $disk (@locations) {
             #Setting default values of a virtual disk backed by a file at hd*.
             $diskhash->{type} = 'file';
             $diskhash->{device} = 'disk';
-            $diskhash->{target}->[dev] = hd.$suffixes[$suffidx];
+            $diskhash->{target}->{dev} = 'hd'.$suffixes[$suffidx];
 
             my @disk_parts = split(/,/, $disk);
             #Find host file and determine if it is a file or a block device.
@@ -129,7 +129,7 @@ sub build_diskstruct {
                 $diskhash->{type}='block';
                 $diskhash->{source}->{dev} = substr($disk_parts[0], 4);
             } else {
-                $diskhash->{source>->{file} = $disk_parts[0];
+                $diskhash->{source}->{file} = $disk_parts[0];
             }
 
             #See if there are any other options. If not, increment suffidx because the already determined device node was used.