Fix "Shape declaration with () is reserved" on current Rakudo

niner · Jan 3, 2015 · 5a1b1ea · 5a1b1ea
1 parent 2f51f44
commit 5a1b1ea
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Inline/Perl5.pm6 b/lib/Inline/Perl5.pm6
@@ -187,10 +187,10 @@ sub p5_eval_pv(Perl5Interpreter, Str, int32)
 sub p5_err_sv(Perl5Interpreter)
     returns OpaquePointer { ... }
     native(&p5_err_sv);
-sub p5_wrap_p6_object(Perl5Interpreter, Int, OpaquePointer, &call_method(Int, Str, OpaquePointer, OpaquePointer --> OpaquePointer), &free_p6_object(Int))
+sub p5_wrap_p6_object(Perl5Interpreter, Int, OpaquePointer, &call_method (Int, Str, OpaquePointer, OpaquePointer --> OpaquePointer), &free_p6_object (Int))
     returns OpaquePointer { ... }
     native(&p5_wrap_p6_object);
-sub p5_wrap_p6_callable(Perl5Interpreter, Int, OpaquePointer, &call(Int, OpaquePointer, OpaquePointer --> OpaquePointer), &free_p6_object(Int))
+sub p5_wrap_p6_callable(Perl5Interpreter, Int, OpaquePointer, &call (Int, OpaquePointer, OpaquePointer --> OpaquePointer), &free_p6_object (Int))
     returns OpaquePointer { ... }
     native(&p5_wrap_p6_callable);
 sub p5_is_wrapped_p6_object(Perl5Interpreter, OpaquePointer)