Parse EBNF: Difference between revisions
m
→{{header|Perl 6}}: fix file open error handling
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: fix file open error handling) |
|||
Line 563:
my $title = $0;
my $fn = 'EBNFtest'~$i++;
my $fh = open($fn, :w)
$fh.say( "\{\n", $grammar );
$fh.say( qq|say "Parsing EBNF grammar '$title':\\n";| );
| |||