[perl-ldap-checkins] CVS: ldap/bin ldapsearch,1.1,1.2

[Chris R. <chr...@us...>]

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;