summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone.pm
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.pm
parent4033bc27a2a0d49d9de8d55b7bd9424f2148c89c (diff)
downloaddrakx-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.pm')
-rw-r--r--perl-install/standalone.pm8
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;