Author: xachen Date: Mon Oct 15 13:40:45 2007 New Revision: 5878 Modified: freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm Log: doh, my perl sux... Modified: freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm ============================================================================== --- freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm (original) +++ freeswitch/trunk/scripts/socket/FreeSWITCH/Client.pm Mon Oct 15 13:40:45 2007 @@ -13,7 +13,7 @@ $self->{_host} = $args->{-host} || "localhost"; $self->{_port} = $args->{-port} || 8021; $self->{_password} = $args->{-password} || undef; - $self->{_tolerant} = $args->{-tolerant} || false; + $self->{_tolerant} = $args->{-tolerant} || undef; $self->{events} = []; my $me = bless $self,$class; @@ -96,8 +96,10 @@ sub error($$) { my($self,$error) = @_; + if ($self->{"_tolerant"}) { print "[DIE CROAKED] $error\n"; + return 0; } else { die $error;