===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/libtool/libtool,v
retrieving revision 1.5
retrieving revision 1.6
diff -c -r1.5 -r1.6
*** src/usr.bin/libtool/libtool	2012/06/27 09:34:09	1.5
--- src/usr.bin/libtool/libtool	2012/06/27 10:33:51	1.6
***************
*** 1,5 ****
  #!/usr/bin/perl
! # $OpenBSD: libtool,v 1.5 2012/06/27 09:34:09 jasper Exp $
  
  # Copyright (c) 2007-2010 Steven Mestdagh <steven@openbsd.org>
  #
--- 1,5 ----
  #!/usr/bin/perl
! # $OpenBSD: libtool,v 1.6 2012/06/27 10:33:51 jasper Exp $
  
  # Copyright (c) 2007-2010 Steven Mestdagh <steven@openbsd.org>
  #
***************
*** 120,126 ****
  	if ($arg =~ /install([-.]sh)?$/) { last; }
  }
  LT::Trace::debug {"ltprog = \"@$ltprog\"\n"};
! if (@$ltprog == 0) { die "No libtool command given.\n" };
  # make ltprog a list of elements without whitespace (prevent exec errors)
  my @tmp_ltprog = @$ltprog;
  @$ltprog = ();
--- 120,127 ----
  	if ($arg =~ /install([-.]sh)?$/) { last; }
  }
  LT::Trace::debug {"ltprog = \"@$ltprog\"\n"};
! if (@$ltprog == 0) { die "No libtool command given.\n" .
! 			 "Use `libtool --help' for more information.\n" };
  # make ltprog a list of elements without whitespace (prevent exec errors)
  my @tmp_ltprog = @$ltprog;
  @$ltprog = ();