diff options
| author | Yves Duret <yduret@mandriva.com> | 2001-08-28 15:53:41 +0000 |
|---|---|---|
| committer | Yves Duret <yduret@mandriva.com> | 2001-08-28 15:53:41 +0000 |
| commit | cd18e6bb3295a3f23d6c35d12b3c117b5cb4b6a5 (patch) | |
| tree | c3217138b77735b1eb38fdd566d521fb8f9f716a /perl-install/standalone/diskdrake | |
| parent | 9666f032051215b8775752149e08b199ce2f2cad (diff) | |
| download | drakx-backup-do-not-use-cd18e6bb3295a3f23d6c35d12b3c117b5cb4b6a5.tar drakx-backup-do-not-use-cd18e6bb3295a3f23d6c35d12b3c117b5cb4b6a5.tar.gz drakx-backup-do-not-use-cd18e6bb3295a3f23d6c35d12b3c117b5cb4b6a5.tar.bz2 drakx-backup-do-not-use-cd18e6bb3295a3f23d6c35d12b3c117b5cb4b6a5.tar.xz drakx-backup-do-not-use-cd18e6bb3295a3f23d6c35d12b3c117b5cb4b6a5.zip | |
embedded mode nicer
Diffstat (limited to 'perl-install/standalone/diskdrake')
| -rwxr-xr-x | perl-install/standalone/diskdrake | 10 |
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; |