[PATCH] genclass.pl patch

[Josef H��k]

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";
 }