id,summary,reporter,owner,description,type,status,priority,milestone,component,version,severity,resolution,keywords,cc,lang,patch,platform
1686,Null PMC access in find_method('signature') using Digest/MD5 from rakudo,cosimo,,"I'm trying to use Parrot's `Digest/MD5.pbc` library from Rakudo.
Here's the rakudo class I'm trying to use:

{{{
class Digest::MD5 {

     pir::load_bytecode('Digest/MD5.pbc');
 
     multi method md5_hex (Str $message) {
 
         my $md5_sum = Q:PIR {
             .local pmc md5sum, md5_sum_get
             md5sum = get_root_global ['parrot'; 'Digest'], '_md5sum'
             $P0 = find_lex '$message'
             $P1 = md5sum($P0)
             md5_sum_get = get_root_global ['parrot'; 'Digest'], '_md5_hex'
             %r = md5_sum_get($P1)
         };
 
         return $md5_sum;
     }
 
     multi method md5_hex (@message) {
         my Str $message = @message.join('');
         return Digest::MD5.md5_hex($message);
     }                                                                                                                                                            
 
}
}}}

and here's the test code:

{{{
use Test;
use Digest::MD5;

my @cases = (
    ""Hello World""  , 'b10a8db164e0754105b7a99be72e3fe5',
    ""Hello World\n"", 'e59ff97941044f85df5297e1c302d260',
    [""a"", ""b""],      '187ef4436122d1cc2f40dc2b92f0eba0',
);

for @cases -> $values, $md5 {

    is(
        Digest::MD5.md5_hex($values), $md5,
        ""MD5 of '$values' must be '$md5'""
    );

}

done_testing;
}}}

The error message is:

{{{
t/test.t ... Null PMC access in find_method('signature')
  in 'Digest::MD5::md5_hex' at line 11:lib/Digest/MD5.pm
  in main program body at line 19:t/test.t
}}}

My rakudo is:
{{{
cosimo@home:~/src/rakudo$ git rev-parse HEAD
f236549628d6455e7e679559daf103df423036fe
cosimo@home:~/src/rakudo$ perl6 -v
This compiler is built with the Parrot Compiler Toolkit, parrot revision 47640.
}}}

This exact code worked with older versions of Parrot and Rakudo (like several months old), but now it doesn't.

Can I do something to help with this problem?
",bug,closed,normal,,none,2.5.0,medium,fixed,find_method signature,,perl6,,linux