Add ARM files

[dh-make-perl] / dev / arm / liburi-perl / liburi-perl-1.35.dfsg.1 / URI / ldapi.pm

diff --git a/dev/arm/liburi-perl/liburi-perl-1.35.dfsg.1/URI/ldapi.pm b/dev/arm/liburi-perl/liburi-perl-1.35.dfsg.1/URI/ldapi.pm
new file mode 100644 (file)
index 0000000..d92b13f
--- /dev/null
+++ b/dev/arm/liburi-perl/liburi-perl-1.35.dfsg.1/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;