[PerlWikiBot] SF.net SVN: perlwikibot:[42] trunk/no-interwiki

[<am...@us...>]

Revision: 42
          http://perlwikibot.svn.sourceforge.net/perlwikibot/?rev=42&view=rev
Author:   amire80
Date:     2008-07-28 16:16:05 +0000 (Mon, 28 Jul 2008)

Log Message:
-----------
Adding config files and tidy script. Rewrote version number code.

Modified Paths:
--------------
    trunk/no-interwiki/prepare_noiw_list.pl

Added Paths:
-----------
    trunk/no-interwiki/.perlcriticrc
    trunk/no-interwiki/.perltidyrc
    trunk/no-interwiki/tidy.sh

Added: trunk/no-interwiki/.perlcriticrc
===================================================================
--- trunk/no-interwiki/.perlcriticrc	                        (rev 0)
+++ trunk/no-interwiki/.perlcriticrc	2008-07-28 16:16:05 UTC (rev 42)
@@ -0,0 +1,6 @@
+#[-CodeLayout::RequireTidyCode]
+#[-Miscellanea::RequireRcsKeywords]
+
+# English.pm doesn't support named capture variables (yet)
+[Variables::ProhibitPunctuationVars]
+allow = %+ $+ @+


Property changes on: trunk/no-interwiki/.perlcriticrc
___________________________________________________________________
Added: svn:executable
   + *

Added: trunk/no-interwiki/.perltidyrc
===================================================================
--- trunk/no-interwiki/.perltidyrc	                        (rev 0)
+++ trunk/no-interwiki/.perltidyrc	2008-07-28 16:16:05 UTC (rev 42)
@@ -0,0 +1,9 @@
+--backup-and-modify-in-place
+--maximum-line-length=78
+--continuation-indentation=4
+--nooutdent-long-lines
+--nooutdent-labels
+--outdent-keyword-list="next last redo goto"
+--paren-tightness=2
+--nospace-for-semicolon
+--nooutdent-long-comments


Property changes on: trunk/no-interwiki/.perltidyrc
___________________________________________________________________
Added: svn:executable
   + *

Modified: trunk/no-interwiki/prepare_noiw_list.pl
===================================================================
--- trunk/no-interwiki/prepare_noiw_list.pl	2008-07-28 15:46:45 UTC (rev 41)
+++ trunk/no-interwiki/prepare_noiw_list.pl	2008-07-28 16:16:05 UTC (rev 42)
@@ -12,10 +12,6 @@
 # This program is Free Software; you can redistribute it and/or modify it
 # under the same terms as Perl itself.
 
-# $Revision$
-# $HeadURL$
-# $Date$
-
 # Upgrade! This script actually uses new Perl 5.10 constructs, so you need it
 use 5.010;
 
@@ -46,7 +42,16 @@
 use Log::Log4perl qw(:easy);
 use Readonly;
 
-our $VERSION = '0.1.9.02';
+#<<< no perltidy
+my %SVN_PROPS = ( ## no critic ValuesAndExpressions::RequireInterpolationOfMetachars
+    Revision => '$Revision$',
+    HeadURL  => '$HeadURL$',
+    Date     => '$Date$',
+);
+#>>>
+our $VERSION = ($SVN_PROPS{Revision} =~ /\A\$Revision:\ (?<revision_num>\d+)\ \$\z/xms)
+    ? "0.1.$+{revision_num}"
+    : croak(q(Something's wrong with SVN revision number));
 
 my %PATTERN;
 Readonly my $WIKITEXT_EXT => 'wiki.txt';

Added: trunk/no-interwiki/tidy.sh
===================================================================
--- trunk/no-interwiki/tidy.sh	                        (rev 0)
+++ trunk/no-interwiki/tidy.sh	2008-07-28 16:16:05 UTC (rev 42)
@@ -0,0 +1,26 @@
+#!/bin/bash
+
+FN=prepare_noiw_list.pl
+
+echo checking syntax
+perl -c $FN
+if [ $? -ne 0 ]; then
+    exit 1
+fi
+
+echo tidying
+perltidy $FN
+if [ $? -ne 0 ]; then
+    exit 1
+fi
+
+diff $FN.bak ${FN}
+if [ $? -eq 2 ]; then
+    exit 1
+fi
+
+echo criticizing
+/usr/local/bin/perlcritic -brutal $FN
+
+exit $?
+


Property changes on: trunk/no-interwiki/tidy.sh
___________________________________________________________________
Added: svn:executable
   + *


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.