escape special characters in arguments before splitting arguments on

spaces.

ok steven@
This commit is contained in:
jakemsr 2008-02-17 02:01:42 +00:00
parent 0cd6ce3bf7
commit 41e50b340e

View File

@ -1,5 +1,5 @@
#!/usr/bin/perl #!/usr/bin/perl
# $OpenBSD: libtool,v 1.17 2007/11/16 15:37:20 steven Exp $ # $OpenBSD: libtool,v 1.18 2008/02/17 02:01:42 jakemsr Exp $
# Copyright (c) 2007 Steven Mestdagh <steven@openbsd.org> # Copyright (c) 2007 Steven Mestdagh <steven@openbsd.org>
# #
@ -355,6 +355,8 @@ if ($mode eq 'compile') {
} }
print "linkmode: $linkmode\n" if $D; print "linkmode: $linkmode\n" if $D;
handle_special_chars(\@ARGV);
my $argvstring = join ' ', @ARGV; my $argvstring = join ' ', @ARGV;
$argvstring = parse_linkargs($argvstring, 1); $argvstring = parse_linkargs($argvstring, 1);
@ARGV = split /\s+/, $argvstring; @ARGV = split /\s+/, $argvstring;
@ -363,8 +365,6 @@ if ($mode eq 'compile') {
# eat multiple version-info arguments, we only accept the first. # eat multiple version-info arguments, we only accept the first.
map { $_ = '' if ($_ =~ m/\d+:\d+:\d+/); } @ARGV; map { $_ = '' if ($_ =~ m/\d+:\d+:\d+/); } @ARGV;
handle_special_chars(\@ARGV);
my @objs; my @objs;
my @sobjs; my @sobjs;
my $allpicobj = generate_objlist(\@objs, \@sobjs); my $allpicobj = generate_objlist(\@objs, \@sobjs);