diff --git a/perl-xCAT/xCAT/Utils.pm b/perl-xCAT/xCAT/Utils.pm
index 7f2e0164f..b4bcc31e7 100644
--- a/perl-xCAT/xCAT/Utils.pm
+++ b/perl-xCAT/xCAT/Utils.pm
@@ -335,7 +335,7 @@ sub xfork
         #my %drivers = DBI->installed_drivers;
         foreach (values %{$::XCAT_DBHS})
         {    #@{$drh->{ChildHandles}}) {
-            if ($_) { $_->disconnect(); }
+            #if ($_) { $_->disconnect(); }
             $_->{InactiveDestroy} = 1;
             undef $_;
         }
diff --git a/xCAT-server/lib/xcat/plugins/zvm.pm b/xCAT-server/lib/xcat/plugins/zvm.pm
index 9cbb3b3c3..8806dfab3 100644
--- a/xCAT-server/lib/xcat/plugins/zvm.pm
+++ b/xCAT-server/lib/xcat/plugins/zvm.pm
@@ -140,7 +140,7 @@ sub process_request {
 	# Controls the power for a single or range of nodes
 	if ( $command eq "rpower" ) {
 		foreach (@nodes) {
-			$pid = fork();
+			$pid = xCAT::Utils->xfork();
 
 			# Parent process
 			if ($pid) {
@@ -166,7 +166,7 @@ sub process_request {
 	# Remote hardware inventory
 	elsif ( $command eq "rinv" ) {
 		foreach (@nodes) {
-			$pid = fork();
+			$pid = xCAT::Utils->xfork();
 
 			# Parent process
 			if ($pid) {
@@ -193,7 +193,7 @@ sub process_request {
 	elsif ( $command eq "mkvm" ) {
 		foreach (@nodes) {
 
-			$pid = fork();
+			$pid = xCAT::Utils->xfork();
 
 			# Parent process
 			if ($pid) {
@@ -235,7 +235,7 @@ sub process_request {
 	# Removes zVM virtual server
 	elsif ( $command eq "rmvm" ) {
 		foreach (@nodes) {
-			$pid = fork();
+			$pid = xCAT::Utils->xfork();
 
 			# Parent process
 			if ($pid) {
@@ -261,7 +261,7 @@ sub process_request {
 	# Lists zVM user directory entry
 	elsif ( $command eq "lsvm" ) {
 		foreach (@nodes) {
-			$pid = fork();
+			$pid = xCAT::Utils->xfork();
 
 			# Parent process
 			if ($pid) {
@@ -287,7 +287,7 @@ sub process_request {
 	# Changes zVM user directory entry
 	elsif ( $command eq "chvm" ) {
 		foreach (@nodes) {
-			$pid = fork();
+			$pid = xCAT::Utils->xfork();
 
 			# Parent process
 			if ($pid) {
@@ -313,7 +313,7 @@ sub process_request {
 	# Collects node information from one or more hardware control points
 	elsif ( $command eq "rscan" ) {
 		foreach (@nodes) {
-			$pid = fork();
+			$pid = xCAT::Utils->xfork();
 
 			# Parent process
 			if ($pid) {