Permalink
Browse files

Fix escaping of non-ascii characters

  • Loading branch information...
1 parent 2dd4119 commit 7eca447609324dd7316c8a4d8608f204e0573922 @gbarr gbarr committed Feb 10, 2007
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/Net/LDAP/Filter.pm
View
@@ -7,7 +7,7 @@ package Net::LDAP::Filter;
use strict;
use vars qw($VERSION);
-$VERSION = "0.14";
+$VERSION = "0.15";
# filter = "(" filtercomp ")"
# filtercomp = and / or / not / item
@@ -88,7 +88,7 @@ sub _unescape {
$_[0];
}
-sub _escape { (my $t = $_[0]) =~ s/([\\\(\)\*\0-\37])/sprintf("\\%02x",ord($1))/sge; $t }
+sub _escape { (my $t = $_[0]) =~ s/([\\\(\)\*\0-\37\177-\377])/sprintf("\\%02x",ord($1))/sge; $t }
sub _encode {
my($attr,$op,$val) = @_;

0 comments on commit 7eca447

Please sign in to comment.