Can't modify constant item in scalar assignment
- by joe
sub new
{
my $class = shift;
my $ldap_obj = Net::LDAP->new( 'test.company.com' ) or die "$@";
my $self = {
_ldap = $ldap_obj,
_dn ='dc=users,dc=ldap,dc=company,dc=com',
_dn_login = 'dc=login,dc=ldap,dc=company,dc=com',
_description ='company',
};
# Print all the values just for clarification.
bless $self, $class;
return $self;
}
what is wrong on this code :
i got this error Can't modify constant item in scalar assignment at Core.pm line 12, near "$ldap_obj,"
