# Process the arguments.
foreach (my $i = 0; $i < scalar(@ARGV); ++$i) {
my $Arg = $ARGV[$i];
- my ($ArgKey) = split /=/,$Arg,2;
+ my @ArgParts = split /=/,$Arg,2;
+ my $ArgKey = @ArgParts[0];
# Be friendly to "" in the argument list.
if (!defined($ArgKey)) {
push @CompileOpts,$Arg;
push @LinkOpts,$Arg;
- while ($Cnt > 0) {
- ++$i; --$Cnt;
- push @CompileOpts, $ARGV[$i];
- push @LinkOpts, $ARGV[$i];
+ if (scalar @ArgParts == 1) {
+ while ($Cnt > 0) {
+ ++$i; --$Cnt;
+ push @CompileOpts, $ARGV[$i];
+ push @LinkOpts, $ARGV[$i];
+ }
}
next;
}