From 676c5e2a570e86c6bf2611e72776e089a53ba7eb Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Sat, 14 Mar 2009 15:52:28 +0000
Subject: [PATCH] -Fix xen plugin compile error

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

diff --git a/xCAT-server/lib/xcat/plugins/xen.pm b/xCAT-server/lib/xcat/plugins/xen.pm
index 04542b61b..6020467fa 100644
--- a/xCAT-server/lib/xcat/plugins/xen.pm
+++ b/xCAT-server/lib/xcat/plugins/xen.pm
@@ -647,6 +647,8 @@ sub process_request {
   #makes sense to check it here anyway, this way we avoid the main process
   #sucking up ram with Sys::Virt
   my $libvirtsupport = eval { require Sys::Virt; };
+  my $request = shift;
+  my $callback = shift;
   unless ($libvirtsupport) { #Still no Sys::Virt module
       $callback->({error=>"Sys::Virt perl module missing, unable to fulfill Xen plugin requirements",errorcode=>[42]});
       return [];
@@ -654,8 +656,6 @@ sub process_request {
   require Sys::Virt::Domain;
   %runningstates = (&Sys::Virt::Domain::STATE_NOSTATE=>1,&Sys::Virt::Domain::STATE_RUNNING=>1,&Sys::Virt::Domain::STATE_BLOCKED=>1);
 
-  my $request = shift;
-  my $callback = shift;
   $doreq = shift;
   my $level = shift;
   my $noderange = $request->{node};