escape special characters in arguments before splitting arguments on
spaces. ok steven@
This commit is contained in:
parent
0cd6ce3bf7
commit
41e50b340e
@ -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);
|
||||||
|
Loading…
Reference in New Issue
Block a user