summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/diskdrake
diff options
context:
space:
mode:
authorYves Duret <yduret@mandriva.com>2001-08-28 15:53:41 +0000
committerYves Duret <yduret@mandriva.com>2001-08-28 15:53:41 +0000
commitcd18e6bb3295a3f23d6c35d12b3c117b5cb4b6a5 (patch)
treec3217138b77735b1eb38fdd566d521fb8f9f716a /perl-install/standalone/diskdrake
parent9666f032051215b8775752149e08b199ce2f2cad (diff)
downloaddrakx-cd18e6bb3295a3f23d6c35d12b3c117b5cb4b6a5.tar
drakx-cd18e6bb3295a3f23d6c35d12b3c117b5cb4b6a5.tar.gz
drakx-cd18e6bb3295a3f23d6c35d12b3c117b5cb4b6a5.tar.bz2
drakx-cd18e6bb3295a3f23d6c35d12b3c117b5cb4b6a5.tar.xz
drakx-cd18e6bb3295a3f23d6c35d12b3c117b5cb4b6a5.zip
embedded mode nicer
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;