Fix socket problem

now $peer is got from recv()

Signed-off-by: Hiroshi Miura <miurahr@linux.com>
Merge branch 'fix-socket-behavior'