===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/libtool/libtool,v
retrieving revision 1.16
retrieving revision 1.17
diff -c -r1.16 -r1.17
*** src/usr.bin/libtool/libtool	2012/07/07 18:08:11	1.16
--- src/usr.bin/libtool/libtool	2012/07/07 18:21:56	1.17
***************
*** 1,5 ****
  #!/usr/bin/perl
! # $OpenBSD: libtool,v 1.16 2012/07/07 18:08:11 jasper 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.17 2012/07/07 18:21:56 espie Exp $
  
  # Copyright (c) 2007-2010 Steven Mestdagh <steven@openbsd.org>
  # Copyright (c) 2012 Marc Espie <espie@openbsd.org>
***************
*** 44,54 ****
  sub new
  {
      my $class = shift;
!     my $self = {
  	machine_arch => $Config{'ARCH'},
!     };
!     bless $self, $class;
!     return $self;
  }
  
  package LT::Options;
--- 44,52 ----
  sub new
  {
      my $class = shift;
!     bless {
  	machine_arch => $Config{'ARCH'},
!     }, $class;
  }
  
  package LT::Options;
***************
*** 160,167 ****
  	notyet
  	);
  
! #my $config = LT::OSConfig->new();
! my $ltconfig = LT::OSConfig->new();
  my @no_shared_archs = qw(m88k vax);
  (my $gnu_arch = $ltconfig->{'machine_arch'}) =~ s/amd64/x86_64/;
  my $cwd = getcwd();
--- 158,164 ----
  	notyet
  	);
  
! my $ltconfig = LT::OSConfig->new;
  my @no_shared_archs = qw(m88k vax);
  (my $gnu_arch = $ltconfig->{'machine_arch'}) =~ s/amd64/x86_64/;
  my $cwd = getcwd();