On Sat, May 27, 2017 at 11:36:46AM +0300, Vadim Zhukov wrote:
> This allows to handle --tag=... args in the middle of options list.
> Unbreaks multimedia/lives with base Clang. I don't see any potential
> breakage because compilers and linkers do not accept --tag= anyway.
>
> Okay?
>
> --
> WBR,
> Vadim Zhukov
>
> P.S.: Our regress/usr.bin/libtool looks like a bit... outdated,
> but that's a separate issue.
>
>
> Index: LT/Getopt.pm
> ===================================================================
> RCS file: /cvs/src/usr.bin/libtool/LT/Getopt.pm,v
> retrieving revision 1.12
> diff -u -p -r1.12 Getopt.pm
> --- LT/Getopt.pm 19 Mar 2014 02:16:22 -0000 1.12
> +++ LT/Getopt.pm 27 May 2017 08:33:23 -0000
> @@ -228,6 +228,7 @@ sub create_options
> my ($self, @l) = @_;
> my @options = ();
> # first pass creates accessors
> + push(@l, '-tag=', sub { $self->add_tag($_[2]); });
> while (my $opt = shift @l) {
> my $isarray = ($opt =~ s/\@$//);
> # default code or not
okay
