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.
|
