diff --git a/lib/Guacamole.pm b/lib/Guacamole.pm index ea11891..c4b84de 100644 --- a/lib/Guacamole.pm +++ b/lib/Guacamole.pm @@ -1125,7 +1125,9 @@ OpKeywordReadExpr ::= OpKeywordRead OpListKeywordArg OpKeywordReaddirExpr ::= OpKeywordReaddir OpUnaryKeywordArg -OpKeywordReadlineExpr ::= OpKeywordReadline OpUnaryKeywordArg +OpKeywordReadlineExpr ::= OpKeywordReadline LParen BuiltinFilehandle RParen + | OpKeywordReadline BuiltinFilehandle + | OpKeywordReadline OpUnaryKeywordArg | OpKeywordReadline OpKeywordReadlinkExpr ::= OpKeywordReadlink OpUnaryKeywordArg diff --git a/t/Statements/Expressions/OpUnaryKeywordExpr/OpKeywordReadlineExpr.t b/t/Statements/Expressions/OpUnaryKeywordExpr/OpKeywordReadlineExpr.t new file mode 100644 index 0000000..4b525ec --- /dev/null +++ b/t/Statements/Expressions/OpUnaryKeywordExpr/OpKeywordReadlineExpr.t @@ -0,0 +1,11 @@ +use strict; +use warnings; +use Guacamole::Test; + +parses('readline;'); +parses('readline();'); +parses('readline STDIN;'); +parses('readline (STDIN);'); +parses('readline(STDIN);'); + +done_testing();