[PerlWikiBot] SF.net SVN: perlwikibot:[42] trunk/no-interwiki
Status: Pre-Alpha
Brought to you by:
rotemliss
|
From: <am...@us...> - 2008-07-28 16:15:55
|
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.
|