smls/socket_crash_malformed_utf8.md Secret

## socket_crash_malformed_utf8.md

      
    Raw
  

              socket_crash_malformed_utf8.md
            
          
    Start the following server program, and keep it running.
Then in another terminal run
telnet localhost 3333

...and press CTRL+C. This apparently sends some non-UTF8 bytes, because it causes the server to die as well, with the following message:
Unhandled exception: Malformed UTF-8
Command exited with non-zero status 1


## socket_crash_malformed_utf8.p6
#!/usr/bin/env perl6

react {
    whenever IO::Socket::Async.listen('localhost', 3333) -> $conn {
        whenever $conn.Supply -> $message {
            say $message;
            CATCH { default { say "ERROR: {.^name}"; } }
        }
        CATCH { default { say "ERROR: {.^name}"; } }
    }
    CATCH { default { say "ERROR: {.^name}"; } }
}
	#!/usr/bin/env perl6

	react {
	whenever IO::Socket::Async.listen('localhost', 3333) -> $conn {
	whenever $conn.Supply -> $message {
	say $message;
	CATCH { default { say "ERROR: {.^name}"; } }
	}
	CATCH { default { say "ERROR: {.^name}"; } }
	}
	CATCH { default { say "ERROR: {.^name}"; } }
	}