===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/libtool/libtool,v
retrieving revision 1.41
retrieving revision 1.42
diff -c -r1.41 -r1.42
*** src/usr.bin/libtool/libtool	2014/03/06 08:58:43	1.41
--- src/usr.bin/libtool/libtool	2014/03/19 02:16:22	1.42
***************
*** 1,5 ****
  #!/usr/bin/perl
! # $OpenBSD: libtool,v 1.41 2014/03/06 08:58:43 ajacoutot 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.42 2014/03/19 02:16:22 afresh1 Exp $
  
  # Copyright (c) 2007-2010 Steven Mestdagh <steven@openbsd.org>
  # Copyright (c) 2012 Marc Espie <espie@openbsd.org>
***************
*** 30,38 ****
  $SIG{__DIE__} = sub {
  	require Carp;
  
! 	my $_ = pop @_;
! 	s/(.*)( at .*? line .*?\n$)/$1/s;
! 	push @_, $_;
  	die &Carp::longmess;
  };
  
--- 30,38 ----
  $SIG{__DIE__} = sub {
  	require Carp;
  
! 	my $message = pop @_;
! 	$message =~ s/(.*)( at .*? line .*?\n$)/$1/s;
! 	push @_, $message;
  	die &Carp::longmess;
  };