From 79d226c48d6de4f26c604ddbd0ce769a58d548c6 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'perl-install/standalone.pm')

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;
-- 
cgit v1.2.1