[PerlWikiBot] SF.net SVN: perlwikibot:[45] trunk/no-interwiki/prepare_noiw_list.pl

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

Revision: 45
          http://perlwikibot.svn.sourceforge.net/perlwikibot/?rev=45&view=rev
Author:   amire80
Date:     2008-07-29 08:43:51 +0000 (Tue, 29 Jul 2008)

Log Message:
-----------
Cosmetics to fix broken syntax highlighting.

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

Modified: trunk/no-interwiki/prepare_noiw_list.pl
===================================================================
--- trunk/no-interwiki/prepare_noiw_list.pl	2008-07-28 16:47:22 UTC (rev 44)
+++ trunk/no-interwiki/prepare_noiw_list.pl	2008-07-29 08:43:51 UTC (rev 45)
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 # prepare_noiw_list.pl
-# version Noa - development
+# version 0.2 Noa - development
 
 # See the POD documentation at the end of the file or run
 # perldoc prepare_noiw_list.pl
@@ -51,7 +51,7 @@
 #>>>
 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));
+    : croak(q(Something is wrong with SVN revision number));
 
 my %PATTERN;
 Readonly my $WIKITEXT_EXT => 'wiki.txt';
@@ -234,7 +234,7 @@
 }xms;
 $PATTERN{invalid_filename_char} = qr{[\\\n/:*?"<>|]}xms;        # "
 
-# TODO: Check whether it's Neapolitan with its ''
+# TODO: Check whether it is Neapolitan with its ''
 $PATTERN{character_code_in_link} = qr{
     (?:
         [%.]                # There are both %C4%B0 and .AA.E0
@@ -1013,7 +1013,7 @@
 
 # Custom Unicode character property for finding characters.
 # The custom is to give those subroutines CamelCase names.
-sub IsLeftToRight {    ## no critic (NamingConventions::ProhibitMixedCaseSubs)
+sub IsLeftToRight {    ## no critic NamingConventions::ProhibitMixedCaseSubs
     return <<'END';
 +utf8::InHebrew
 +utf8::IsSpace


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