Doesn't support giving filehandle to readline

xsawyerx / guacamole

Guacamole is a parser toolkit for Standard Perl. It provides fully static BNF-based parsing capability to a reasonable subset of Perl.

https://metacpan.org/pod/Guacamole

20 stars 8 forks source link

Closed anonyno closed 2 years ago

anonyno commented 3 years ago

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 commented 2 years ago