use Net::LDAP;
use Net::LDAP::Control::ManageDsaIT;
$ldap = Net::LDAP->new( "ldap.mydomain.eg" );
$manage = Net::LDAP::Control::ManageDsaIT->new( critical => 1 );
$msg = $ldap->modify( 'dc=sub,dc=mydomain,dc=eg",
changes => [
delete => { ref => 'ldap://ldap2/dc=sub,dc=mydom,dc=eg' },
add => { ref => 'ldap://ldap3/dc=sub,dc=mydom,dc=eg' } ],
control => [ $manage ] );
die "error: ",$msg->code(),": ",$msg->error() if ($msg->code());
It allows the manipulation of referral and other special objects as normal entries.
The control is appropriate for LDAP search, compare and all update requests, including add, delete, modify, and modifyDN (rename) [RFC4511].
Its criticality may be TRUE or FALSE; it has no value.
Please report any bugs, or post any suggestions, to the perl-ldap mailing list <perl-ldap@perl.org>