'use v6' was clobbering %*LANG

TimToady · TimToady · commit 2b0f93de5613 · 2012-09-03T23:28:54.000-07:00
diff --git a/STD.pm6 b/STD.pm6
@@ -1434,7 +1434,7 @@ grammar P6 is STD {
         <sym> :: <.ws>
         [
         || <version> <?{ substr($<version>.Str,0,2) eq 'v6' }>
-        || <version> <?{ substr($<version>.Str,0,2) eq 'v5' }>
+        || <version> <?{ substr($<version>.Str,0,2) eq 'v5' }> [
             :my %*LANG;
             {
                 self.require_P5;
@@ -1446,6 +1446,7 @@ grammar P6 is STD {
             }
             <.ws> ';'
             [ <statementlist> || <.panic: "Bad P5 code"> ]
+        ]
         || <module_name>
             {
                 $longname = $<module_name><longname>;

Original file line number	Diff line number	Diff line change
`@@ -1434,7 +1434,7 @@ grammar P6 is STD {`
`1434`	`1434`	`<sym> :: <.ws>`
`1435`	`1435`	`[`
`1436`	`1436`	`\|\| <version> <?{ substr($<version>.Str,0,2) eq 'v6' }>`
`1437`		`- \|\| <version> <?{ substr($<version>.Str,0,2) eq 'v5' }>`
	`1437`	`+ \|\| <version> <?{ substr($<version>.Str,0,2) eq 'v5' }> [`
`1438`	`1438`	`:my %*LANG;`
`1439`	`1439`	`{`
`1440`	`1440`	`self.require_P5;`
`@@ -1446,6 +1446,7 @@ grammar P6 is STD {`
`1446`	`1446`	`}`
`1447`	`1447`	`<.ws> ';'`
`1448`	`1448`	`[ <statementlist> \|\| <.panic: "Bad P5 code"> ]`
	`1449`	`+ ]`
`1449`	`1450`	`\|\| <module_name>`
`1450`	`1451`	`{`
`1451`	`1452`	`$longname = $<module_name><longname>;`