Dashboard
PHP:
8.3.33
OS:
Linux
User:
listena2
/
/
usr
/
share
/
perl5
/
URI
📤 Upload
📝 New File
📁 New Folder
Close
Editing: ldapi.pm
package URI::ldapi; use strict; use warnings; our $VERSION = '5.09'; 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;
Save
Cancel