diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-31 23:10:55 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-31 23:10:55 +0000 |
| commit | 79d226c48d6de4f26c604ddbd0ce769a58d548c6 (patch) | |
| tree | ad304fe307e7f11c32dc871ce003ebcd98fa7878 /perl-install/standalone/diskdrake | |
| parent | 4033bc27a2a0d49d9de8d55b7bd9424f2148c89c (diff) | |
| download | drakx-backup-do-not-use-79d226c48d6de4f26c604ddbd0ce769a58d548c6.tar drakx-backup-do-not-use-79d226c48d6de4f26c604ddbd0ce769a58d548c6.tar.gz drakx-backup-do-not-use-79d226c48d6de4f26c604ddbd0ce769a58d548c6.tar.bz2 drakx-backup-do-not-use-79d226c48d6de4f26c604ddbd0ce769a58d548c6.tar.xz drakx-backup-do-not-use-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-x | perl-install/standalone/diskdrake | 5 |
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} = ''; |