[Israel.pm] exists/defined problem :-(

Chanan Berler bc.other at gmail.com
Sun Sep 11 06:24:31 PDT 2011


Hello All,

	# check if result key GetUmsPlayerData found
	if ( exists($result->{'response'}->{'Player'}->{'GetUmsPlayerData'}->{'player_data'})
)
	{
#		$result->{'response'}->{'Player'}->{'GetUmsPlayerData'}->{'player_data'}
= $self->_player_data_by_key_to_name_($result->{'response'}->{'Player'});
	}

Funny after adding this condition (see no action is done - comments)
and printing using Data::Dumper i found this:

Sep 11 13:18:17 dev-host-03.playtechtv.tv: [pid:26150] [debug]
[mixtv::payment::PlaytechUMS_base::_PARSE_RESPONSE_] response returned
with error (0). system-error-code was set to 100.
Sep 11 13:18:17 dev-host-03.playtechtv.tv: [pid:26150] [debug]
[mixtv::payment::PlaytechUMS_base::_simple_trace_] =========>
params=$VAR1 = { 'req_ref' => '7864384', 'req_name' => 'LOGIN', 'data'
=> { 'Player' => { 'errorText' => '', 'errorCode' => '0',
'GetUmsPlayerData' => {}, 'Login' => { 'sessionToken' =>
'1DC46A42BAFD44A4714F6C33FBBA84CE', 'sessionValidationData' => undef,
'errorText' => '', 'errorCode' => '0', 'playerCode' => '2752191',
'phone' => undef, 'username' => 'MBTEST10' } } }, 'type' => 'RESPONSE'
};

Notice GetUmsPlayerData was added to my Hash ?? is this a memory
problem with exists ? checking same thing using defined i found same
problem :-(

-Chanan


-- 
===================
----     Chanan Berler    ----
===================


More information about the Perl mailing list