From @bbkr

Run following P6 listener​:

perl6 -e 'my $l = IO​::Socket​::INET.new( input-line-separator => "\r\n", localport => 8080, :listen); while my $c = $l.accept() { for ^10 { $c.get().encode().gist.say; }; $c.close }'

Then call it with P5 client​:

perl -e 'use LWP​::UserAgent; LWP​::UserAgent->new->post("http://localhost​:8080");'

Listener will print​:

Buf​:0x<50 4f 53 54 20 2f 20 48 54 54 50 2f 31 2e 31 0d>
Buf​:0x<54 45 3a 20 64 65 66 6c 61 74 65 2c 67 7a 69 70 3b 71 3d 30 2e 33 0d>
Buf​:0x<43 6f 6e 6e 65 63 74 69 6f 6e 3a 20 54 45 2c 20 63 6c 6f 73 65 0d>
Buf​:0x<48 6f 73 74 3a 20 6c 6f 63 61 6c 68 6f 73 74 3a 38 30 38 30 0d>
Buf​:0x<55 73 65 72 2d 41 67 65 6e 74 3a 20 6c 69 62 77 77 77 2d 70 65 72 6c 2f 36 2e 30 32 0d>
Buf​:0x<43 6f 6e 74 65 6e 74 2d 4c 65 6e 67 74 68 3a 20 30 0d>
Buf​:0x<43 6f 6e 74 65 6e 74 2d 54 79 70 65 3a 20 61 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 77 77 77 2d 66 6f 72 6d 2d 75 72 6c 65 6e 63 6f 64 65 64 0d>
Buf​:0x<0d>

As you can see carriage return (0x0D) is present in get() output despite fact that it was defined as line separator.

From @FROGGS

Now (with latest commit from moritz today)​:

Buf​:0x<50 4f 53 54 20 2f 20 48 54 54 50 2f 31 2e 31>
Buf​:0x<54 45 3a 20 64 65 66 6c 61 74 65 2c 67 7a 69 70 3b 71 3d 30 2e 33>
Buf​:0x<43 6f 6e 6e 65 63 74 69 6f 6e 3a 20 54 45 2c 20 63 6c 6f 73 65>
Buf​:0x<48 6f 73 74 3a 20 6c 6f 63 61 6c 68 6f 73 74 3a 38 30 38 30>
Buf​:0x<55 73 65 72 2d 41 67 65 6e 74 3a 20 6c 69 62 77 77 77 2d 70 65 72
6c 2f 36 2e 30 34>
Buf​:0x<43 6f 6e 74 65 6e 74 2d 4c 65 6e 67 74 68 3a 20 30>
Buf​:0x<43 6f 6e 74 65 6e 74 2d 54 79 70 65 3a 20 61 70 70 6c 69 63 61 74
69 6f 6e 2f 78 2d 77 77 77 2d 66 6f 72 6d 2d 75 72 6c 65 6e 63 6f 64 65 64>

Please confirm.

The RT System itself - Status changed from 'new' to 'open'

From @jnthn

On Sun Jan 29 02​:39​:03 2012, pawel.pabian@​implix.com wrote​:

Run following P6 listener​:

perl6 -e 'my $l = IO​::Socket​::INET.new( input-line-separator =>
"\r\n", localport => 8080, :listen); while my $c = $l.accept() { for
^10 { $c.get().encode().gist.say; }; $c.close }'

Then call it with P5 client​:

perl -e 'use LWP​::UserAgent; LWP​::UserAgent->new-

post("http://localhost&#8203;:8080");'

Listener will print​:

Buf​:0x<50 4f 53 54 20 2f 20 48 54 54 50 2f 31 2e 31 0d>
Buf​:0x<54 45 3a 20 64 65 66 6c 61 74 65 2c 67 7a 69 70 3b 71 3d 30 2e
33 0d>
Buf​:0x<43 6f 6e 6e 65 63 74 69 6f 6e 3a 20 54 45 2c 20 63 6c 6f 73 65
0d>
Buf​:0x<48 6f 73 74 3a 20 6c 6f 63 61 6c 68 6f 73 74 3a 38 30 38 30 0d>
Buf​:0x<55 73 65 72 2d 41 67 65 6e 74 3a 20 6c 69 62 77 77 77 2d 70 65
72 6c 2f 36 2e 30 32 0d>
Buf​:0x<43 6f 6e 74 65 6e 74 2d 4c 65 6e 67 74 68 3a 20 30 0d>
Buf​:0x<43 6f 6e 74 65 6e 74 2d 54 79 70 65 3a 20 61 70 70 6c 69 63 61
74 69 6f 6e 2f 78 2d 77 77 77 2d 66 6f 72 6d 2d 75 72 6c 65 6e 63 6f
64 65 64 0d>
Buf​:0x<0d>

As you can see carriage return (0x0D) is present in get() output
despite fact that it was defined as line separator.

Was fixed for a good while; was doing some further improvements to get today and confirmed it is still fixed and added a test in S32-io/IO-Socket-INET.t.

/jnthn

@jnthn - Status changed from 'open' to 'resolved'