From: Chris R. <chr...@us...> - 2004-01-20 07:07:41
|
Update of /cvsroot/perl-ldap/ldap/bin In directory sc8-pr-cvs1:/tmp/cvs-serv20777/bin Modified Files: ldapsearch Log Message: Fixes from Peter Marschall Index: ldapsearch =================================================================== RCS file: /cvsroot/perl-ldap/ldap/bin/ldapsearch,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- ldapsearch 9 Jun 2003 12:29:42 -0000 1.1 +++ ldapsearch 20 Jan 2004 07:07:38 -0000 1.2 @@ -6,6 +6,9 @@ # $Id$ # # $Log$ +# Revision 1.2 2004/01/20 07:07:38 chrisridd +# Fixes from Peter Marschall +# # Revision 1.1 2003/06/09 12:29:42 gbarr # Depend in MakeMaker to fixup the #! line of installed scripts # @@ -137,7 +140,7 @@ my @urls = ($initial->as_string); -my $ldif = Net::LDAP::LDIF->new if $opt_L; +my $ldif = Net::LDAP::LDIF->new('-', 'w') if $opt_L; my $first_record = 1; while (@urls) { @@ -186,7 +189,6 @@ $searchargs{base} = $url->dn if $url->dn; $searchargs{scope} = $opt_s if $opt_s; $searchargs{scope} = $url->_scope if defined $url->_scope; - $searchargs{scope} = $scopes{$searchargs{scope}} if $searchargs{scope}; $searchargs{deref} = $derefs{$opt_a} if $opt_a; $searchargs{sizelimit} = $opt_z if $opt_z; $searchargs{timelimit} = $opt_l if $opt_l; |