![[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.14, 2012/07/06 19:18:49 | version 1.15, 2012/07/07 16:48:53 | ||
|---|---|---|---|
|
|
||
| sub is_abreviated_mode | sub is_abreviated_mode | ||
| { | { | ||
| my ($self, $arg) = @_; | my ($self, $arg) = @_; | ||
| return undef if !$arg; | |||
| for my $m (@valid_modes) { | for my $m (@valid_modes) { | ||
| next if length $arg > length $m; | next if length $arg > length $m; | ||
| if ($arg eq substr($m, 0, length $arg)) { | if ($arg eq substr($m, 0, length $arg)) { |