Fix command line parsing.

now "./partcl foo.tcl" works again
partcl · Oct 7, 2012 · ea6caae · ea6caae
1 parent 51dddb6
commit ea6caae
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Partcl.pm b/src/Partcl.pm
@@ -20,11 +20,11 @@ use src::FileGlob::Actions;
 use src::FileGlob::Compiler;
 use src::options;
 
-sub MAIN(*@ARGS) {
+sub MAIN(@ARGS) {
     # XXX setup %LEXPAD?
     my $compiler := Partcl::Compiler.new();
     $compiler.language('Partcl');
     $compiler.parsegrammar(Partcl::Grammar);
     $compiler.parseactions(Partcl::Actions);
-    $compiler.command_line(@ARGS);
+    $compiler.command_line(@ARGS, :encoding('utf8'), :transcode('ascii iso-8859-1'));
 }