diff options
| -rw-r--r-- | perl-install/standalone.pm | 4 |
1 files 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; |