as_struct changes from 0.13 => 0.17?

[Paul H. <hei...@cs...>]

I poked around the archives looking for any reference to changes in the
as_struct method in ::Search, but found none -- so I come a-beggin' :-(

Here's the central part of the code in question:

  #
  # start perl
  #
  my $l = Net::LDAP->new( 'directory.ogi.edu' ) or die "$@";
  $l->bind();

  my $mesg = $l->search(
    base   => $base,
    filter => $filter,
    attrs  => \@fields,
  );

  $mesg->code && die $mesg->error;

  my $href = $mesg->as_struct();

  print map { "$_ : $href->{$_}\n" } keys %$href;
  #
  # end perl
  #

I've run the code on two fairly identical Linux boxes, the first equipped
with perl-ldap 0.13, the second 0.17.

On the box with 0.13, I get what I'd come to expect:

  [heinlein@redbone heinlein]$ perl ~/ldap/z.pl
  employeeNumber=0001058, dc=ogi, dc=edu : HASH(0x81a75b4)
  employeeNumber=0001383, dc=ogi, dc=edu : HASH(0x82c8668)
  employeeNumber=0001025, dc=ogi, dc=edu : HASH(0x82c8770)
  employeeNumber=0001384, dc=ogi, dc=edu : HASH(0x82c86bc)
  employeeNumber=0001745, dc=ogi, dc=edu : HASH(0x82c871c)
  employeeNumber=0001152, dc=ogi, dc=edu : HASH(0x82c86a4)
  employeeNumber=0001810, dc=ogi, dc=edu : HASH(0x82c86e0)

On the box with 0.17, however, I get the DNs just fine, but it looks for
all the world that the as_struct() hash has only keys, no values:

  [heinlein@roadkill heinlein]$ perl ~/ldap/z.pl
  Use of uninitialized value at /home/users/heinlein/ldap/z.pl line 28.
  Use of uninitialized value at /home/users/heinlein/ldap/z.pl line 28.
  Use of uninitialized value at /home/users/heinlein/ldap/z.pl line 28.
  Use of uninitialized value at /home/users/heinlein/ldap/z.pl line 28.
  Use of uninitialized value at /home/users/heinlein/ldap/z.pl line 28.
  Use of uninitialized value at /home/users/heinlein/ldap/z.pl line 28.
  Use of uninitialized value at /home/users/heinlein/ldap/z.pl line 28.
  employeeNumber=0001058, dc=ogi, dc=edu : 
  employeeNumber=0001383, dc=ogi, dc=edu : 
  employeeNumber=0001025, dc=ogi, dc=edu : 
  employeeNumber=0001384, dc=ogi, dc=edu : 
  employeeNumber=0001745, dc=ogi, dc=edu : 
  employeeNumber=0001152, dc=ogi, dc=edu : 
  employeeNumber=0001810, dc=ogi, dc=edu : 

Interestingly, the same search() works well on both machines if I unravel
the results using all_entries():

  foreach my $e ( $mesg->all_entries ) { $e->dump; };

Clues welcome.

Paul Heinlein
hei...@cs...