From 711e6f03abf5045978d38b14f24a754438baab15 Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 7 Jan 2008 20:34:53 +0000
Subject: [PATCH] Stripped additional profile attributes for modify() function
 - Line 673

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

diff --git a/perl-xCAT-2.0/xCAT/PPCvm.pm b/perl-xCAT-2.0/xCAT/PPCvm.pm
index 6eae22b56..40fe4b70d 100644
--- a/perl-xCAT-2.0/xCAT/PPCvm.pm
+++ b/perl-xCAT-2.0/xCAT/PPCvm.pm
@@ -666,6 +666,16 @@ sub modify {
             # Change configuration
             ###############################
             my $cfg = strip_profile( $cfgdata, $hwtype );
+            
+            ###############################
+            # Additional changes 
+            ###############################
+            $cfg =~ s/,*lpar_env=[^,]+|$//;
+            
+            if ( $hwtype eq "hmc" ) {
+                $cfg =~ s/,*all_resources=[^,]+|$//;
+                $cfg =~ s/,*lpar_id=[^,]+|$//;          
+            }
             my $result = xCAT::PPCcli::chsyscfg( $exp, $d, $cfg );
             my $Rc = shift(@$result);