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
