Copy of copy-pastos; kboga++.

Raku · Oct 21, 2012 · d8ff663 · d8ff663
1 parent 68aa467
commit d8ff663
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/QRegex/P5Regex/Actions.nqp b/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),

diff --git a/src/QRegex/P5Regex/Grammar.nqp b/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'> ]
     }