From 08ca1e06eafd62d11f4d6dd97c09730997d5474c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 25 Nov 2002 08:27:25 +0000 Subject: - simplify --embedded handling - stricter matching on --no-autoc --- perl-install/standalone.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm index 9f14e971f..1ed61d44d 100644 --- a/perl-install/standalone.pm +++ b/perl-install/standalone.pm @@ -119,11 +119,11 @@ foreach (@ARGV) { version(); exit(0); } elsif (/^--embedded$/) { - (undef, $::XID, $::CCPID) = splice @ARGV, ($i-1), 3; + ($::XID, $::CCPID) = splice @ARGV, $i, 2; $::isEmbedded = 1; } elsif (/^--expert$/) { $::expert = 1; - } elsif (/--noauto$/) { + } elsif (/^--noauto$/) { $::noauto = /-noauto/; } elsif (/^--auto$/) { $::auto = 1; -- cgit v1.2.1