be a bit more idiomatic

niner · Sep 26, 2014 · 6a57058 · 6a57058
1 parent b639c31
commit 6a57058
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Inline/Perl5.pm6 b/lib/Inline/Perl5.pm6
@@ -214,7 +214,7 @@ multi method p6_to_p5(Str:D $value) returns OpaquePointer {
 }
 multi method p6_to_p5(blob8:D $value) returns OpaquePointer {
     my $array = CArray[uint8].new();
-    for 0 .. $value.elems - 1 {
+    for ^$value.elems {
         $array[$_] = $value[$_];
     }
     return p5_buf_to_sv($!p5, $value.elems, $array);