=================================================================== RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/libtool/libtool,v retrieving revision 1.35 retrieving revision 1.36 diff -c -r1.35 -r1.36 *** src/usr.bin/libtool/libtool 2012/07/10 12:24:45 1.35 --- src/usr.bin/libtool/libtool 2012/07/10 13:32:10 1.36 *************** *** 1,5 **** #!/usr/bin/perl ! # $OpenBSD: libtool,v 1.35 2012/07/10 12:24:45 espie Exp $ # Copyright (c) 2007-2010 Steven Mestdagh # Copyright (c) 2012 Marc Espie --- 1,5 ---- #!/usr/bin/perl ! # $OpenBSD: libtool,v 1.36 2012/07/10 13:32:10 espie Exp $ # Copyright (c) 2007-2010 Steven Mestdagh # Copyright (c) 2012 Marc Espie *************** *** 260,277 **** { my ($self, $tag) = @_; return defined $self->{tags}{$tag}; - } - - sub getoptions - { - my $o = shift; - require Getopt::Long; - my $p = Getopt::Long::Parser->new; - $p->configure('no_ignore_case', - 'pass_through', - 'no_auto_abbrev', - 'permute'); - $p->getoptions(@_); } sub is_abreviated_mode --- 260,265 ----