Make $?RAKUDO_MODULE_DEBUG a proper constant

rakudo · May 1, 2015 · 5fa3ffb · 5fa3ffb
1 parent 6887699
commit 5fa3ffb
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -1933,11 +1933,7 @@ Compilation unit '$file' contained the following violations:
             $past := QAST::WVal.new( :value($pragmas) );
         }
         elsif $past.name() eq '$?RAKUDO_MODULE_DEBUG' {
-            my $debug := nqp::hllizefor(
-              +nqp::ifnull(nqp::atkey(nqp::getenvhash(),'RAKUDO_MODULE_DEBUG'),0
-            ), 'perl6');
-            $*W.add_object($debug);
-            $past := QAST::WVal.new( :value($debug) );
+            $past := $*W.add_constant('Int','int',+nqp::ifnull(nqp::atkey(nqp::getenvhash(),'RAKUDO_MODULE_DEBUG'),0));
         }
         elsif +@name > 1 {
             $past := $*W.symbol_lookup(@name, $/, :lvalue(1));