[Freeswitch-svn] [commit] r5878 - freeswitch/trunk/scripts/socket/FreeSWITCH

[Freeswitch SVN]

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;