summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl0/lib/URI/ldapi.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl0/lib/URI/ldapi.pm')
-rwxr-xr-xMaster/tlpkg/tlperl0/lib/URI/ldapi.pm30
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;