diff --git a/perl-xCAT/xCAT/PPCvm.pm b/perl-xCAT/xCAT/PPCvm.pm index 502472c8c..3bd6d78c6 100644 --- a/perl-xCAT/xCAT/PPCvm.pm +++ b/perl-xCAT/xCAT/PPCvm.pm @@ -739,6 +739,7 @@ sub subst_profile my $cfgdata = shift; my $attrlist = shift; + $cfgdata =~ s/\\\"/\"/g; my @cfgarray = split /,/, $cfgdata; ########################################## # Repair those lines splitted incorrectly @@ -786,7 +787,7 @@ sub subst_profile } if ( $cfgline =~ /,/) { - $cfgline = "\"$cfgline\""; + $cfgline = "\\\"$cfgline\\\""; } push @final_array, $cfgline; }