Skip Menu |
Report information
Id: 130377
Status: open
Priority: 0/
Queue: perl6

Owner: Nobody
Requestors: bradleyg [at] Dal.Ca
Cc:
AdminCc:

Severity: (no value)
Tag: Bug
Platform: (no value)
Patch Status: (no value)
VM: (no value)



To: "rakudobug [...] perl.org" <rakudobug [...] perl.org>
Date: Mon, 19 Dec 2016 18:03:10 +0000
From: Bradley Garagan <bradleyg [...] Dal.Ca>
Subject: [BUG] write on closed socket not failing as it should
Download (untitled) / with headers
text/plain 301b
This is Rakudo version 2016.11 built on MoarVM version 2016.11 implementing Perl 6.c. Here is a program that demonstrates the problem. use v6; my $s = IO::Socket::INET.new(:host('irc.freenode.net'), :port(6667)); $s.print("QUIT\r\n"); for $s.lines { say $_; } say so $s.print("this should fail");
RT-Send-CC: perl6-compiler [...] perl.org
Download (untitled) / with headers
text/plain 948b
On Mon, 19 Dec 2016 14:38:09 -0800, bradleyg@Dal.Ca wrote: Show quoted text
> This is Rakudo version 2016.11 built on MoarVM version 2016.11 > implementing Perl 6.c. > > Here is a program that demonstrates the problem. > > use v6; > > my $s = IO::Socket::INET.new(:host('irc.freenode.net'), :port(6667)); > $s.print("QUIT\r\n"); > for $s.lines { say $_; } > say so $s.print("this should fail"); >
Note that if you explicitly close the socket, this works as expected. use v6; my $s = IO::Socket::INET.new(:host('irc.freenode.net'), :port(6667)); $s.print("QUIT\r\n"); for $s.lines { say $_; } $s.close; say so $s.print("this should fail"); :rajaniemi.freenode.net NOTICE * :*** Looking up your hostname... :rajaniemi.freenode.net NOTICE * :*** Checking Ident :rajaniemi.freenode.net NOTICE * :*** Couldn't look up your hostname :rajaniemi.freenode.net NOTICE * :*** No Ident response ERROR :Closing Link: 127.0.0.1 (Client Quit) False -- Will "Coke" Coleda


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

For issues related to this RT instance (aka "perlbug"), please contact perlbug-admin at perl.org