[PATCH] genclass.pl patch

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

• [PATCH] genclass.pl patch by Josef Höök
• Re: [PATCH] genclass.pl patch by Mike Lambert