summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/diskdrake
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/diskdrake')
-rwxr-xr-xperl-install/standalone/diskdrake10
1 files changed, 6 insertions, 4 deletions
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index 639c19b49..43a0e6b08 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -33,11 +33,13 @@ use fs;
use log;
use c;
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
-print "EMBED\n" if $::isEmbedded;
-print "XID : $::XID\n";
-print "CCPID : $::CCPID\n";
+$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
+if ($::isEmbedded) {
+ print "EMBED\n";
+ print "parent XID\t$::XID\n";
+ print "mcc pid\t$::CCPID\n";
+}
local $_ = join '', @ARGV;