Revision
16924
Author
brian
Date
2010-03-05 18:20:29 -0600 (Fri, 05 Mar 2010)

Log Message

 delete the event hash cuz you know we don't need it anymore till the next event.

Modified Paths

Diff

Modified: freeswitch/trunk/libs/esl/perl/ESL/Dispatch.pm (16923 => 16924)


--- freeswitch/trunk/libs/esl/perl/ESL/Dispatch.pm	2010-03-05 23:57:08 UTC (rev 16923)
+++ freeswitch/trunk/libs/esl/perl/ESL/Dispatch.pm	2010-03-06 00:20:29 UTC (rev 16924)
@@ -88,6 +88,7 @@
 	$event = $self->{_esl}->recvEvent();
       }
       $self->render_event($event,1);
+      delete $self->{event_hash};
     }
     sleep 1;
     $self->{_esl} = new ESL::ESLconnection("$self->{host}", "$self->{port}", "$self->{pass}");