From aa6a2501ddd1ce3e3cb786468c7a38ff988006c5 Mon Sep 17 00:00:00 2001
From: jjhua <jjhua@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 25 Sep 2009 03:14:50 +0000
Subject: [PATCH] to fix bug 2866271, add  my  = shift; at the beginning of
 sshcfg()

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

diff --git a/perl-xCAT/xCAT/PPCcfg.pm b/perl-xCAT/xCAT/PPCcfg.pm
index c8bac47da..8a4dda9b4 100644
--- a/perl-xCAT/xCAT/PPCcfg.pm
+++ b/perl-xCAT/xCAT/PPCcfg.pm
@@ -264,7 +264,7 @@ sub cfg {
 # Enables/disables/displays SSH access to HMC/IVM  
 ##########################################################################
 sub sshcfg {
-
+    my $request = shift;
     my $exp     = shift;
     my $mode    = shift;
     my $server  = @$exp[3];