Current Path :
/
usr
/
share
/
perl5
/
URI
/
Or
Select Your Path :
Upload File :
New :
File
Dir
//usr/share/perl5/URI/ldapi.pm
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;
