Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

'use v6' was clobbering %*LANG

commit 116afb03a2cacb81602eb47ada450f1d99807a64 1 parent 2b0f93d
@TimToady TimToady authored
Showing with 2 additions and 1 deletion.
  1. +2 −1  STD_P5.pm6
View
3  STD_P5.pm6
@@ -475,7 +475,7 @@ rule p5statement_control:use {
[
|| <version=p5versionish> [
|| <?{ substr($<version>[0].Str,0,2) eq 'v5' }>
- || <?{ substr($<version>[0].Str,0,2) eq 'v6' }>
+ || <?{ substr($<version>[0].Str,0,2) eq 'v6' }> [
:my %*LANG;
{
%*LANG<MAIN> = ::STD::P6 ;
@@ -487,6 +487,7 @@ rule p5statement_control:use {
<.ws> ';'
[ <statementlist> || <.panic: "Bad P6 code"> ]
]
+ ]
|| <module_name=p5module_name>
{
$longname = $<module_name><longname>;
Please sign in to comment.
Something went wrong with that request. Please try again.