Fix some pir::op sigs.

rakudo · Jul 21, 2012 · bb7a618 · bb7a618
1 parent c0ca5a3
commit bb7a618
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/src/QPerl6/Ops.pm b/src/QPerl6/Ops.pm
@@ -95,3 +95,5 @@ QAST::Operations.add_hll_unbox('perl6', 's', -> $qastcomp, $post {
     $ops.result($reg);
     $ops
 });
+
+QAST::Operations.add_core_pirop_mapping('findnotcclass', 'find_not_cclass', 'Iisii');
diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -683,9 +683,9 @@ my class Str does Stringy {
     method encode(Str:D $encoding = 'utf8') {
         my $buf := Buf.new;
         pir::set__vPs(nqp::getattr($buf, Buf, '$!buffer'),
-            pir::trans_encoding__ssi(
+            pir::trans_encoding__Ssi(
                 nqp::unbox_s(self),
-                pir::find_encoding__is(nqp::unbox_s(PARROT_ENCODING($encoding)))
+                pir::find_encoding__Is(nqp::unbox_s(PARROT_ENCODING($encoding)))
             )
         );
         $buf;