# 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*'

Reply via email to