[svn:parrot] r45505 - trunk/tools/docs

[mikehh at svn.parrot.org]

Author: mikehh
Date: Sat Apr 10 09:37:54 2010
New Revision: 45505
URL: https://trac.parrot.org/parrot/changeset/45505

Log:
fix perlcritic failures - shebang line, use strict/warnings, add coda and remove hard tabs

Modified:
   trunk/tools/docs/filename_and_chapter.pl

Modified: trunk/tools/docs/filename_and_chapter.pl
==============================================================================
--- trunk/tools/docs/filename_and_chapter.pl	Sat Apr 10 05:30:18 2010	(r45504)
+++ trunk/tools/docs/filename_and_chapter.pl	Sat Apr 10 09:37:54 2010	(r45505)
@@ -1,10 +1,13 @@
-#!perl -w
+#! perl
 # Copyright (C) 2010, Parrot Foundation.
 # $Id$
 #
 # perl script that deliver all filenames and the associated chapters
 #
 
+use strict;
+use warnings;
+
 use Getopt::Long ();
 
 my $item_list_ref = [ ['intro.pod', 'Introduction to Parrot'],
@@ -16,25 +19,30 @@
 my ( $result, $give_out, $b_out);
 
 $result = Getopt::Long::GetOptions (
-	"print" => \$give_out,
-	"b_out" => \$b_out,
+    "print" => \$give_out,
+    "b_out" => \$b_out,
 );
 
 if ($give_out)  {
-	for ( my $i=0; $i<$lang; $i++ )
-		{ print $$item_list_ref[$i][0], ' ' }
-	exit;
+    for ( my $i=0; $i<$lang; $i++ )
+        { print $$item_list_ref[$i][0], ' ' }
+    exit;
 };
 
 if ($b_out) {
-	for ( my $i=0; $i<$lang; $i++ )
-		{ print 'build/modified_pod/', $$item_list_ref[$i][0], ' ' }
-	exit;
+    for ( my $i=0; $i<$lang; $i++ )
+        { print 'build/modified_pod/', $$item_list_ref[$i][0], ' ' }
+    exit;
 };
 
 
 for (my $i=0; $i<$lang; $i++)
-	{ `sed -e '4,6c\=head0 $$item_list_ref[$i][1]' $$item_list_ref[$i][0] > build/modified_pod/$$item_list_ref[$i][0]` }
-
+    { `sed -e '4,6c\=head0 $$item_list_ref[$i][1]' $$item_list_ref[$i][0] > build/modified_pod/$$item_list_ref[$i][0]` }
 
 
+# Local Variables:
+#   mode: cperl
+#   cperl-indent-level: 4
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4: