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

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

Revision: 92
          http://perlwikibot.svn.sourceforge.net/perlwikibot/?rev=92&view=rev
Author:   amire80
Date:     2010-11-06 15:08:56 +0000 (Sat, 06 Nov 2010)

Log Message:
-----------
Not forcing SVN version number.

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

Modified: trunk/no-interwiki/prepare_noiw_list.pl
===================================================================
--- trunk/no-interwiki/prepare_noiw_list.pl	2010-05-26 15:36:59 UTC (rev 91)
+++ trunk/no-interwiki/prepare_noiw_list.pl	2010-11-06 15:08:56 UTC (rev 92)
@@ -74,10 +74,13 @@
     Date     => '$Date$',
 );
 #>>>
-our $FULL_VERSION =
-    ($SVN_PROPS{Revision} =~ /\A\$Revision:\ (?<revision_num>\d+)\ \$\z/xms)
-    ? "$VERSION.$+{revision_num}"
-    : croak(q(Something is wrong with SVN revision number));
+our $FULL_VERSION = $VERSION;
+if ($SVN_PROPS{Revision} =~ /\A\$Revision:\ (?<revision_num>\d+)\ \$\z/xms) {
+    $FULL_VERSION .= ".$+{revision_num}";
+}
+else {
+    carp(q(Something is wrong with SVN revision number, but never mind));
+}
 
 my $WIKITEXT_EXT = 'wiki.txt';
 my $OUT_DIR      = 'out';
@@ -1195,10 +1198,10 @@
             carp("$lang_code is $lang_reftype, not hashref!");
             next LANG_CODE;
         }
-        my $filename         = "$MULTI_DIR/$lang_code.$WIKITEXT_EXT";
-        say 'sort keys found_links lang_code'; # XXX
+        my $filename = "$MULTI_DIR/$lang_code.$WIKITEXT_EXT";
+        say 'sort keys found_links lang_code';    # XXX
         my @foreign_articles = sort keys %{ $found_links{$lang_code} };
-        say 'format_link_table lang_code scalar foreign_articles'; # XXX
+        say 'format_link_table lang_code scalar foreign_articles';    # XXX
         say format_link_table($lang_code, scalar @foreign_articles);
 
         FOREIGN_ARTICLE:


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