Make NQP compreg when loaded as a module.

Raku · Dec 20, 2012 · ba37573 · ba37573
1 parent 36f5853
commit ba37573
Showing 1 changed file with 17 additions and 17 deletions.
diff --git a/src/NQP/Compiler.pm b/src/NQP/Compiler.pm
@@ -1,24 +1,24 @@
 class NQP::Compiler is HLL::Compiler {
 }
 
+# Create and configure compiler object.
+my $nqpcomp := NQP::Compiler.new();
+$nqpcomp.language('nqp');
+$nqpcomp.parsegrammar(NQP::Grammar);
+$nqpcomp.parseactions(NQP::Actions);
+hll-config($nqpcomp.config);
+
+# Add extra command line options.
+my @clo := $nqpcomp.commandline_options();
+@clo.push('parsetrace');
+@clo.push('setting=s');
+@clo.push('setting-path=s');
+@clo.push('module-path=s');
+@clo.push('vmlibs=s');
+@clo.push('no-regex-lib');
+@clo.push('old-regex-lib');
+
 sub MAIN(@ARGS) {
-    # Create and configure compiler object.
-    my $nqpcomp := NQP::Compiler.new();
-    $nqpcomp.language('nqp');
-    $nqpcomp.parsegrammar(NQP::Grammar);
-    $nqpcomp.parseactions(NQP::Actions);
-    hll-config($nqpcomp.config);
-
-    # Add extra command line options.
-    my @clo := $nqpcomp.commandline_options();
-    @clo.push('parsetrace');
-    @clo.push('setting=s');
-    @clo.push('setting-path=s');
-    @clo.push('module-path=s');
-    @clo.push('vmlibs=s');
-    @clo.push('no-regex-lib');
-    @clo.push('old-regex-lib');
-
     # Enter the compiler.
     $nqpcomp.command_line(@ARGS, :encoding('utf8'), :transcode('ascii iso-8859-1'));