summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/diskdrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-31 23:10:55 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-31 23:10:55 +0000
commit79d226c48d6de4f26c604ddbd0ce769a58d548c6 (patch)
treead304fe307e7f11c32dc871ce003ebcd98fa7878 /perl-install/standalone/diskdrake
parent4033bc27a2a0d49d9de8d55b7bd9424f2148c89c (diff)
downloaddrakx-79d226c48d6de4f26c604ddbd0ce769a58d548c6.tar
drakx-79d226c48d6de4f26c604ddbd0ce769a58d548c6.tar.gz
drakx-79d226c48d6de4f26c604ddbd0ce769a58d548c6.tar.bz2
drakx-79d226c48d6de4f26c604ddbd0ce769a58d548c6.tar.xz
drakx-79d226c48d6de4f26c604ddbd0ce769a58d548c6.zip
Handle parsing --embedded command line in standalone.pm
=> allows to remove the somewhat mythical $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/
Diffstat (limited to 'perl-install/standalone/diskdrake')
-rwxr-xr-xperl-install/standalone/diskdrake5
1 files changed, 1 insertions, 4 deletions
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index 97fca7bde..56f175b57 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -40,10 +40,7 @@ my %options;
my @l = @ARGV;
while (my $e = shift @l) {
my ($option) = $e =~ /--?(.*)/ or next;
- if ($option eq 'embedded') {
- $::isEmbedded = 1;
- ($::XID, $::CCPID, @l) = @l;
- } elsif ($option =~ /(.*?)=(.*)/) {
+ if ($option =~ /(.*?)=(.*)/) {
$options{$1} = $2;
} else {
$options{$option} = '';