(tl)perl 5.20.2 for windows, from siep

git-svn-id: svn://tug.org/texlive/trunk@37064 c570f23f-e606-0410-a88d-b1316a301751

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=*)";
 }