From 530e9785aeb99b0f9c6628d853b9ad3ed4a36747 Mon Sep 17 00:00:00 2001
From: chudegao <degaochu@cn.ibm.com>
Date: Wed, 4 Feb 2015 10:15:44 +0800
Subject: [PATCH] fix 4545,restart xcatd hang due to perl syntax error in low
 perl version 5.10.x

---
 perl-xCAT/xCAT/ProfiledNodeUtils.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-xCAT/xCAT/ProfiledNodeUtils.pm b/perl-xCAT/xCAT/ProfiledNodeUtils.pm
index 766f7a63e..743101e38 100644
--- a/perl-xCAT/xCAT/ProfiledNodeUtils.pm
+++ b/perl-xCAT/xCAT/ProfiledNodeUtils.pm
@@ -1434,7 +1434,7 @@ sub cal_netboot{
         return 0;
     }
 
-    my $condition = shift $condition_array_ref;
+    my $condition = shift @$condition_array_ref;
     if( (exists($netboot_dict_ref->{$condition})) || (exists($netboot_dict_ref->{'*'})) )
     {
         if(!exists($netboot_dict_ref->{$condition}))