Work around a MAIN bug.

jnthn · jnthn · commit d014f94f99ce · 2011-03-15T00:46:35.000+01:00
diff --git a/src/Regex/P6Regex/Compiler.pm b/src/Regex/P6Regex/Compiler.pm
@@ -1,10 +1,12 @@
 class Regex::P6Regex::Compiler is HLL::Compiler {
 }
 
-sub MAIN(@ARGS) {
+sub MAIN(@ARGS?) {
+    if @ARGS {
     my $p6regex := Regex::P6Regex::Compiler.new();
     $p6regex.language('Regex::P6Regex');
     $p6regex.parsegrammar(Regex::P6Regex::Grammar);
     $p6regex.parseactions(Regex::P6Regex::Actions);
     $p6regex.command_line(@ARGS, :encoding('utf8'), :transcode('ascii iso-8859-1'));
+    }
 }

Original file line number	Diff line number	Diff line change
`@@ -1,10 +1,12 @@`
`1`	`1`	`class Regex::P6Regex::Compiler is HLL::Compiler {`
`2`	`2`	`}`
`3`	`3`
`4`		`-sub MAIN(@ARGS) {`
	`4`	`+sub MAIN(@ARGS?) {`
	`5`	`+ if @ARGS {`
`5`	`6`	`my $p6regex := Regex::P6Regex::Compiler.new();`
`6`	`7`	`$p6regex.language('Regex::P6Regex');`
`7`	`8`	`$p6regex.parsegrammar(Regex::P6Regex::Grammar);`
`8`	`9`	`$p6regex.parseactions(Regex::P6Regex::Actions);`
`9`	`10`	`$p6regex.command_line(@ARGS, :encoding('utf8'), :transcode('ascii iso-8859-1'));`
	`11`	`+ }`
`10`	`12`	`}`