[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP Search.pm,1.7,1.8 Filter.pm,1.7,1.8

[Graham B. <gb...@us...>]

Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory usw-pr-cvs1:/tmp/cvs-serv8538/lib/Net/LDAP

Modified Files:
	Search.pm Filter.pm 
Log Message:
Fix perl5.004 compatability issues


Index: Search.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Search.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- Search.pm	3 Jun 2002 15:26:46 -0000	1.7
+++ Search.pm	11 Sep 2002 12:49:09 -0000	1.8
@@ -12,7 +12,7 @@
 use Net::LDAP::Constant qw(LDAP_SUCCESS LDAP_DECODING_ERROR);
 
 @ISA = qw(Net::LDAP::Message);
-$VERSION = "0.08";
+$VERSION = "0.09";
 
 
 sub first_entry { # compat
@@ -131,9 +131,9 @@
 	$i++;
       }
 
-      $v ||= ($a->[1] ||= Net::LDAP::Util::canonical_dn( $a->[0]->dn, reverse => 1, separator => "\0"))
+      $v ||= ($a->[1] ||= Net::LDAP::Util::canonical_dn( $a->[0]->dn, "reverse" => 1, separator => "\0"))
 		cmp
-	     ($b->[1] ||= Net::LDAP::Util::canonical_dn( $b->[0]->dn, reverse => 1, separator => "\0"));
+	     ($b->[1] ||= Net::LDAP::Util::canonical_dn( $b->[0]->dn, "reverse" => 1, separator => "\0"));
     }
     map { [ $_ ] } @{$self->{entries}};
 }

Index: Filter.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Filter.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- Filter.pm	31 Jan 2002 14:04:15 -0000	1.7
+++ Filter.pm	11 Sep 2002 12:49:11 -0000	1.8
@@ -7,7 +7,7 @@
 use strict;
 use vars qw($VERSION);
 
-$VERSION = "0.13";
+$VERSION = "0.14";
 
 # filter       = "(" filtercomp ")"
 # filtercomp   = and / or / not / item
@@ -117,12 +117,12 @@
   # If the op is = and contains one or more * not
   # preceeded by \ then do partial matches
 
-  if ($op eq '=' && $val =~ /^(\\.|[^\\*]*)*\*/o ) {
+  if ($op eq '=' && $val =~ /^(\\.|[^\\*]+)*\*/o ) {
 
     my $n = [];
     my $type = 'initial';
 
-    while ($val =~ s/^((\\.|[^\\*]*)*)\*//) {
+    while ($val =~ s/^((\\.|[^\\*]+)*)\*//) {
       push(@$n, { $type, _unescape("$1") })         # $1 is readonly, copy it
 	if length($1) or $type eq 'any';