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;
|
