summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/URI/_ldap.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/_ldap.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/URI/_ldap.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/URI/_ldap.pm b/Master/tlpkg/tlperl/lib/URI/_ldap.pm
index d76736471d4..d273f32d6f3 100644
--- a/Master/tlpkg/tlperl/lib/URI/_ldap.pm
+++ b/Master/tlpkg/tlperl/lib/URI/_ldap.pm
@@ -5,9 +5,9 @@
package URI::_ldap;
use strict;
+use warnings;
-use vars qw($VERSION);
-$VERSION = "1.12";
+our $VERSION = "1.67";
use URI::Escape qw(uri_unescape);
@@ -47,7 +47,7 @@ sub attributes {
sub _scope {
my $self = shift;
my $old = _ldap_elem($self,1, @_);
- return unless defined wantarray && defined $old;
+ return undef unless defined wantarray && defined $old;
uri_unescape($old);
}
@@ -60,7 +60,7 @@ sub scope {
sub _filter {
my $self = shift;
my $old = _ldap_elem($self,2, @_);
- return unless defined wantarray && defined $old;
+ return undef unless defined wantarray && defined $old;
uri_unescape($old); # || "(objectClass=*)";
}