I've added an if case in genclass so it will print "return whoami;" for "name" function so that no one need to grep parrot source for an hour or two trying to figure out why it segfaults when registering pmc class in init_world... ( grumble :-) )
/Josef
--- genclass.pl.orig Fri Jul 19 12:24:35 2002 +++ genclass.pl Fri Jul 19 12:23:29 2002 @@ -38,6 +38,9 @@ my ($retval, $methname, $args) = @{$_}; print " $retval $methname ($args) {\n"; + if($methname =~ /name$/) { + print " return whoami\;\n"; + } print " }\n\n"; }