Copy of copy-pastos; kboga++.

Author: jnthn

src/QRegex/P5Regex/Actions.nqp

@@ -1,7 +1,7 @@
 class QRegex::P5Regex::Actions is HLL::Actions {
     method TOP($/) {
         make QAST::CompUnit.new(
-            :hll('P6Regex'),
+            :hll('P5Regex'),
             :sc($*W.sc()),
             :code_ref_blocks($*W.code_ref_blocks()),
             :compilation_mode(0),

src/QRegex/P5Regex/Grammar.nqp

@@ -40,7 +40,7 @@ class QRegex::P5Regex::World is HLL::World {
 grammar QRegex::P5Regex::Grammar is HLL::Grammar {
     token TOP {
         :my %*RX;
-        :my $*W := QRegex::P6Regex::World.new(:handle(nqp::sha1(self.target)));
+        :my $*W := QRegex::P5Regex::World.new(:handle(nqp::sha1(self.target)));
         <nibbler>
         [ $ || <.panic: 'Confused'> ]
     }