# New Ticket Created by Christoph Otto
# Please include the string: [perl #51056]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=51056 >
This patch fixes some inaccurate documentation in gen_class.pl and makes
generated skeleton PMCs consistent with the coding standards.
Index: tools/dev/gen_class.pl
===================================================================
--- tools/dev/gen_class.pl (revision 25907)
+++ tools/dev/gen_class.pl (working copy)
@@ -20,6 +20,7 @@
it to C.
% perl tools/dev/gen_class.pl Foo > src/pmc/foo.pmc
+ % perl tools/build/pmc2c.pl --dump src/pmc/foo.pmc
% perl tools/build/pmc2c.pl -c src/pmc/foo.pmc
=head1 SEE ALSO
@@ -72,7 +73,7 @@
next if exists $skip_bodies{$methname};
next if $methname =~ /prop/;
- print " $retval $methname ($args) {\n";
+ print " $retval $methname($args) {\n";
if ( $retval ne 'void' ) {
print $retval eq 'PMC*'
