Changeset 779

Timestamp:

10/28/07 15:28:22 (6 years ago)

Author:

tokuhirom

Message:

lang/perl/mobirc: shutdown when socket error.

Files:

• lang/perl/mobirc/trunk/mobirc/lib/Mobirc/HTTPD.pm (modified) (1 diff)

lang/perl/mobirc/trunk/mobirc/lib/Mobirc/HTTPD.pm

@@ -35 +35 @@
         ClientFilter => 'POE::Filter::HTTPD',
         ClientInput  => \&on_web_request,
+        Error        => sub {
+            die( "$$: " . 'Server ',
+                $_[SESSION]->ID, " got $_[ARG0] error $_[ARG1] ($_[ARG2])\n" );
+        }
     );