Skip to content

Instantly share code, notes, and snippets.

Created August 7, 2010 13:05
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/512792 to your computer and use it in GitHub Desktop.
Save anonymous/512792 to your computer and use it in GitHub Desktop.
diff --git a/src/Perl6/Compiler.pir b/src/Perl6/Compiler.pir
index afdd3b2..fd96462 100644
--- a/src/Perl6/Compiler.pir
+++ b/src/Perl6/Compiler.pir
@@ -223,6 +223,10 @@ Perl6::Compiler - Perl6 compiler
.param pmc args_str
# Fire any of the setting's INIT phasers before we enter the runloop, so
# e.g. $*OUT is available to the actual code's BEGIN blocks.
+
+
+ say "from inside main"
+
'!fire_phasers'('INIT')
$P0 = compreg 'perl6'
$P1 = $P0.'command_line'(args_str, 'encoding'=>'utf8', 'transcode'=>'ascii iso-8859-1')
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment