diff options
Diffstat (limited to 'Master/tlpkg/tlperl0/lib/URI/ldapi.pm')
-rwxr-xr-x | Master/tlpkg/tlperl0/lib/URI/ldapi.pm | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl0/lib/URI/ldapi.pm b/Master/tlpkg/tlperl0/lib/URI/ldapi.pm new file mode 100755 index 00000000000..d92b13f3a49 --- /dev/null +++ b/Master/tlpkg/tlperl0/lib/URI/ldapi.pm @@ -0,0 +1,30 @@ +package URI::ldapi; + +use strict; + +use vars qw(@ISA); + +require URI::_generic; +require URI::_ldap; +@ISA=qw(URI::_ldap URI::_generic); + +require URI::Escape; + +sub un_path { + my $self = shift; + my $old = URI::Escape::uri_unescape($self->authority); + if (@_) { + my $p = shift; + $p =~ s/:/%3A/g; + $p =~ s/\@/%40/g; + $self->authority($p); + } + return $old; +} + +sub _nonldap_canonical { + my $self = shift; + $self->URI::_generic::canonical(@_); +} + +1; |