From 53acd54581ee645b6341fd0e6ef01ed41b3ff3e4 Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 2 Feb 2012 12:36:23 +0000
Subject: [PATCH] fix perl warnings

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

diff --git a/perl-xCAT/xCAT/RemoteShellExp.pm b/perl-xCAT/xCAT/RemoteShellExp.pm
index b99faa75d..d62af4d10 100755
--- a/perl-xCAT/xCAT/RemoteShellExp.pm
+++ b/perl-xCAT/xCAT/RemoteShellExp.pm
@@ -618,7 +618,7 @@ sub sendnodeskeys
         next; 
       }
 
-      my @result = $sendkeys->expect(
+        @result = $sendkeys->expect(
         $timeout,
         [
          $prompt1,  # Are you sure you want to ...
@@ -704,7 +704,7 @@ sub sendnodeskeys
       #run copy.sh prompts starts here 
       #
 
-      my @result = $sendkeys->expect(
+        @result = $sendkeys->expect(
         $timeout,
         [
          $prompt1,  # Are you sure you want to ...