[perl #15877] [PATCH] genclass.pl

[Will Coleda via RT]

This patch has been applied, in spirit at least:

for (@{$vtbl}) {
    my ($retval, $methname, $args) = @{$_};
    if ($methname eq 'type' || $methname eq 'name' || $methname =~ /prop/) {
        # default.pmc handles these
        next;
    }

    print "    $retval $methname ($args) {\n";
    if($retval ne 'void') {
        print "        return ($retval)0;\n";
    }
    print "    }\n\n";
}

Closing ticket - Regards.

> [coke - Thu Apr 08 22:40:07 2004]:
> 
>  the base64 encoded version is bigger than the original:
> 
> --- genclass.pl.~1.12.~ 2002-07-24 09:57:58.000000000 -0400
> +++ genclass.pl 2002-07-24 10:04:39.000000000 -0400
> @@ -41,6 +41,9 @@
>       if($methname eq "name") {
>           print "        return whoami\;\n";
>       }
> +     else if($retval !~ /void/) {
> +         print "        return ($retval) NULL\;\n";
> +     }
>       print "    }\n\n";
>  }
> 
>