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.pm | |
| parent | 4033bc27a2a0d49d9de8d55b7bd9424f2148c89c (diff) | |
| download | drakx-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.pm')
| -rw-r--r-- | perl-install/standalone.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm index e001f6d2c..7e5948f22 100644 --- a/perl-install/standalone.pm +++ b/perl-install/standalone.pm @@ -9,7 +9,13 @@ $ENV{SHARE_PATH} ||= "/usr/share"; c::setlocale(); c::bindtextdomain('libDrakX', "/usr/share/locale"); - +my $i; +foreach (@ARGV) { + $i++; + $_ eq '--embedded' or next; + (undef, $::XID, $::CCPID) = splice @ARGV, ($i-1), 3; + $::isEmbedded = 1; +} ################################################################################ package pkgs_interactive; |