projects
/
dh-make-perl
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add the original source packages to maemo, source lenny
[dh-make-perl]
/
dev
/
i386
/
liburi-perl
/
liburi-perl-1.35.dfsg.1
/
URI
/
ldapi.pm
1
package URI::ldapi;
2
3
use strict;
4
5
use vars qw(@ISA);
6
7
require URI::_generic;
8
require URI::_ldap;
9
@ISA=qw(URI::_ldap URI::_generic);
10
11
require URI::Escape;
12
13
sub un_path {
14
my $self = shift;
15
my $old = URI::Escape::uri_unescape($self->authority);
16
if (@_) {
17
my $p = shift;
18
$p =~ s/:/%3A/g;
19
$p =~ s/\@/%40/g;
20
$self->authority($p);
21
}
22
return $old;
23
}
24
25
sub _nonldap_canonical {
26
my $self = shift;
27
$self->URI::_generic::canonical(@_);
28
}
29
30
1;