===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/libtool/libtool,v
retrieving revision 1.19
retrieving revision 1.20
diff -c -r1.19 -r1.20
*** src/usr.bin/libtool/libtool	2012/07/07 21:29:14	1.19
--- src/usr.bin/libtool/libtool	2012/07/07 21:42:22	1.20
***************
*** 1,5 ****
  #!/usr/bin/perl
! # $OpenBSD: libtool,v 1.19 2012/07/07 21:29:14 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.20 2012/07/07 21:42:22 jasper Exp $
  
  # Copyright (c) 2007-2010 Steven Mestdagh <steven@openbsd.org>
  # Copyright (c) 2012 Marc Espie <espie@openbsd.org>
***************
*** 54,59 ****
--- 54,67 ----
      bless $self, $class;
  }
  
+ sub dump
+ {
+ 	my $self = shift;
+ 	while (my ($key, $value) = each(%$self)) {
+ 		print "$key = $value\n";
+ 	}
+ }
+ 
  package LT::Mode;
  
  sub new
***************
*** 352,360 ****
  
  sub config
  {
! 	while ( my ($key, $value) = each(%$ltconfig) ) {
! 		print "$key = $value\n";
! 	}
  	exit 0;
  }
  
--- 360,366 ----
  
  sub config
  {
! 	$ltconfig->dump;
  	exit 0;
  }