From d7edc5dc77b31c23b60ca725dfb1825e327ce00c Mon Sep 17 00:00:00 2001
From: Justin Cassidy <xachen@mac.com>
Date: Mon, 15 Oct 2007 17:40:45 +0000
Subject: [PATCH] doh, my perl sux...

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@5878 d0543943-73ff-0310-b7d9-9358b9ac24b2
---
 scripts/socket/FreeSWITCH/Client.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scripts/socket/FreeSWITCH/Client.pm b/scripts/socket/FreeSWITCH/Client.pm
index 5945914a7e..1b7b9221cf 100644
--- a/scripts/socket/FreeSWITCH/Client.pm
+++ b/scripts/socket/FreeSWITCH/Client.pm
@@ -13,7 +13,7 @@ sub init($;$) {
   $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 readhash($;$) {
 
 sub error($$) {
   my($self,$error) = @_;
+
   if ($self->{"_tolerant"}) {
       print "[DIE CROAKED] $error\n";
+      return 0;
   }
   else {
       die $error;