Doesn't support giving filehandle to readline

[anonyno]

This works:

use strict;
use warnings;
use utf8;
use open qw(:std :utf8);

while (my $line = <STDIN>) {
    print $line;
}

But this doesn’t:

use strict;
use warnings;
use utf8;
use open qw(:std :utf8);

while (my $line = readline STDIN) {
    print $line;
}

[xsawyerx]

Fixed in d9ab139.