![[BACK]](/icons/back.gif){kind=icon}
Return to libtool CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [local] / src / usr.bin / libtool|
Return to libtool CVS log | Up to [local] / src / usr.bin / libtool |
| version 1.35, 2012/07/10 12:24:45 | version 1.36, 2012/07/10 13:32:10 | ||
|---|---|---|---|
|
|
||
| return defined $self->{tags}{$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 | sub is_abreviated_mode | ||
| { | { | ||
| my ($self, $arg) = @_; | my ($self, $arg) = @_; |