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];