===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/libtool/libtool,v
retrieving revision 1.14
retrieving revision 1.15
diff -c -r1.14 -r1.15
*** src/usr.bin/libtool/libtool	2012/07/06 19:18:49	1.14
--- src/usr.bin/libtool/libtool	2012/07/07 16:48:53	1.15
***************
*** 1,5 ****
  #!/usr/bin/perl
! # $OpenBSD: libtool,v 1.14 2012/07/06 19:18:49 espie Exp $
  
  # Copyright (c) 2007-2010 Steven Mestdagh <steven@openbsd.org>
  # Copyright (c) 2012 Marc Espie <espie@openbsd.org>
--- 1,5 ----
  #!/usr/bin/perl
! # $OpenBSD: libtool,v 1.15 2012/07/07 16:48:53 jasper Exp $
  
  # Copyright (c) 2007-2010 Steven Mestdagh <steven@openbsd.org>
  # Copyright (c) 2012 Marc Espie <espie@openbsd.org>
***************
*** 92,97 ****
--- 92,98 ----
  sub is_abreviated_mode
  {
  	my ($self, $arg) = @_;
+ 	return undef if !$arg;
  	for my $m (@valid_modes) {
  		next if length $arg > length $m;
  		if ($arg eq substr($m, 0, length $arg)) {