Merge pull request #395 from raydiak/packfix

Fix a pack 'H' bug
rakudo · Mar 26, 2015 · c5ba5b8 · c5ba5b8
2 parents 9746e88 + fe9bade
commit c5ba5b8
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(/../);