From 79d226c48d6de4f26c604ddbd0ce769a58d548c6 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 31 Jul 2002 23:10:55 +0000 Subject: Handle parsing --embedded command line in standalone.pm => allows to remove the somewhat mythical $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/ --- perl-install/standalone/diskdrake | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'perl-install/standalone/diskdrake') 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} = ''; -- cgit v1.2.1