[svn:parrot] r36247 - trunk/languages/pod/src/parser

[kjs at svn.parrot.org]

Author: kjs
Date: Sun Feb  1 14:03:33 2009
New Revision: 36247
URL: https://trac.parrot.org/parrot/changeset/36247

Log:
[pod] had put in PAST::Block.new() for testing; should be Pod::DocTree::File.new().

Modified:
   trunk/languages/pod/src/parser/actions.pm

Modified: trunk/languages/pod/src/parser/actions.pm
==============================================================================
--- trunk/languages/pod/src/parser/actions.pm	Sun Feb  1 13:57:10 2009	(r36246)
+++ trunk/languages/pod/src/parser/actions.pm	Sun Feb  1 14:03:33 2009	(r36247)
@@ -20,7 +20,7 @@
 
 
 method TOP($/) {
-    my $file := PAST::Block.new();
+    my $file := Pod::DocTree::File.new();
 
     for $<pod_section> {
         $file.push( $( $_ ) );
@@ -61,6 +61,7 @@
 
 method heading($/) {
     my $heading := Pod::DocTree::Heading.new();
+
     ## set the level of the heading
     $heading.level($<digit>);