[svn:parrot] r47766 - branches/html_cleanup/tools/docs

[coke at svn.parrot.org]

Author: coke
Date: Tue Jun 22 19:19:54 2010
New Revision: 47766
URL: https://trac.parrot.org/parrot/changeset/47766

Log:
coding stds

Modified:
   branches/html_cleanup/tools/docs/make_html_docs.pl

Modified: branches/html_cleanup/tools/docs/make_html_docs.pl
==============================================================================
--- branches/html_cleanup/tools/docs/make_html_docs.pl	Tue Jun 22 18:44:06 2010	(r47765)
+++ branches/html_cleanup/tools/docs/make_html_docs.pl	Tue Jun 22 19:19:54 2010	(r47766)
@@ -50,7 +50,8 @@
         my @raw_sources;
         if (ref $chunk->{source} eq "ARRAY" ) {
             @raw_sources = @{$chunk->{source}};
-        } else {
+        }
+        else {
             push @raw_sources, $chunk->{source};
         };
 
@@ -78,7 +79,7 @@
 ## print Dumper(\%pages); use Data::Dumper;
 
 foreach my $page (keys %pages) {
-    $page = $pages{$page}; 
+    $page = $pages{$page};
     foreach my $section (@{$page->{content}}) {
         foreach my $source (@{$section->{input_files}}) {
             if ($source =~ /^:(.*)/) {