Trouble with PoolMember->get_session_enabled_state in perl

Well, your suggestion got me to a point that I got it to work. The redefinition of the serialize command which was plucked from one of the sample scripts was to blame. The version in the header file does need some cleanup in order to work with the perl '-w' flag, however. I suggest:

 

 

Implement Typecast for iControl enumeration Elements

 

no warnings qw(redefine);

 

sub SOAP::Deserializer::typecast

 

{

 

my ($self, $value, $name, $attrs, $children, $type) = @_;

 

my $retval = undef;

 

if (defined($type) && exists($urnMap->{$type}) && $urnMap->{$type} == 1)

 

{

 

$retval = $value;

 

}

 

return $retval;

 

}

 

use warnings qw(redefine);

 

 

Thanks for the help...