home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _e37ed6744a55d04c8e9b04e43a211bf2 < prev    next >
Encoding:
Text File  |  2004-06-01  |  490 b   |  31 lines
  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;
  31.