Initial Commit

database/perl/lib/URI/ldapi.pm

@@ -0,0 +1,29 @@
+package URI::ldapi;
+
+use strict;
+use warnings;
+
+our $VERSION = '5.06';
+
+use parent qw(URI::_ldap URI::_generic);
+
+use 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;