From b712cd91dbb019b029370e52b571fb050f7b71b9 Mon Sep 17 00:00:00 2001 From: "peter@adpm.de" Date: Sat, 5 Mar 2011 16:46:56 +0000 Subject: [PATCH] simplify over-complex call of N:L:E->get_value() @{ Net::LDAP::Entry->get_value(..., asref => 1) } is equivalent to Net::LDAP::Entry->get_value(...) FossilOrigin-Name: 9d695e493d34c511d77e7c7a9226c3389725e86a41a10c7696f7521e853d293e --- shelldap | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/shelldap b/shelldap index c24579d..265fe8e 100755 --- a/shelldap +++ b/shelldap @@ -408,8 +408,7 @@ sub init $self->{'root_dse'} = $self->ldap->root_dse(); if ( $conf->{'debug'} ) { $self->{'schema'} = $self->ldap->schema(); - my @versions = - @{ $self->{'root_dse'}->get_value('supportedLDAPVersion', asref => 1) }; + my @versions = $self->{'root_dse'}->get_value('supportedLDAPVersion'); print "Connected to $conf->{'server'}\n"; print "Supported LDAP version: ", ( join ', ', @versions ), "\n"; print "Cipher in use: ", $self->ldap()->cipher(), "\n"; @@ -1491,7 +1490,7 @@ sub run_list else { # pull objectClasses, hash for lookup speed - my @oc = @{ $e->get_value( 'objectClass', asref => 1 ) || [] }; + my @oc = $e->get_value('objectClass'); my %ochash; map { $ochash{$_} = 1 } @oc;