Fix a pack 'H' bug

rakudo · Mar 26, 2015 · fe9bade · fe9bade
1 parent 9746e88
commit fe9bade
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/Buf.pm b/src/core/Buf.pm
@@ -317,7 +317,7 @@ multi sub pack(Str $template, *@items) {
             }
             when 'H' {
                 my $hexstring = shift @items // '';
-                if $hexstring % 2 {
+                if $hexstring.chars % 2 {
                     $hexstring ~= '0';
                 }
                 @bytes.push: map { :16($_) }, $hexstring.comb(/../);