shut up and let the connections end as they please

doy · Jul 5, 2010 · 0fd5cb5 · 0fd5cb5
1 parent af7ab52
commit 0fd5cb5
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/App/Termcast/Server.pm b/lib/App/Termcast/Server.pm
@@ -156,10 +156,12 @@ sub _build_server_guard {
             on_error => sub {
                 my ($h, $fatal, $error) = @_;
 
-                warn $error;
                 if ($fatal) {
                     $h->destroy;
                 }
+                else {
+                    warn $error;
+                }
             }
         );
         my $handle_id = new_uuid_string();
@@ -260,7 +262,6 @@ sub handle_server {
             my ($h, $data) = @_;
 
             if ($data->{request} eq 'sessions') {
-                warn "RESPONSE";
                 $h->push_write(
                     json => {
                         response => 'sessions',