From cd18e6bb3295a3f23d6c35d12b3c117b5cb4b6a5 Mon Sep 17 00:00:00 2001
From: Yves Duret <yduret@mandriva.com>
Date: Tue, 28 Aug 2001 15:53:41 +0000
Subject: embedded mode nicer

---
 perl-install/standalone/diskdrake | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'perl-install/standalone/diskdrake')

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;
 
-- 
cgit v1.2.1