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

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

Revision: 56
          http://perlwikibot.svn.sourceforge.net/perlwikibot/?rev=56&view=rev
Author:   amire80
Date:     2008-07-31 11:16:45 +0000 (Thu, 31 Jul 2008)

Log Message:
-----------
Improved no-interwiki template regex and got rid of a lot of false positives.

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-31 10:57:47 UTC (rev 55)
+++ trunk/no-interwiki/prepare_noiw_list.pl	2008-07-31 11:16:45 UTC (rev 56)
@@ -224,7 +224,7 @@
 }xmsi;
 
 $PATTERN{ltr_char}       = qr/\P{IsLeftToRight}/xms;
-$PATTERN{true_template}  = qr{$RE{balanced}{-parens=>'{}'}}xms; # XXX very bad
+$PATTERN{true_template}  = qr/\{ $RE{balanced}{-parens=>'{}'} \}/xms;
 $PATTERN{section_link}   = qr{(?<!&)\#}xms;
 $PATTERN{lowercase_link} = qr{\A[[:lower:]]}xms;
 
@@ -236,7 +236,7 @@
     (?: _ \d*)?
     \.$WIKITEXT_EXT
 }xms;
-$PATTERN{invalid_filename_char} = qr{[\\\n/:*?"<>|]}xms;        # "
+$PATTERN{invalid_filename_char} = qr{[\\\n/:*?"<>|]}xms;    # "
 
 # TODO: Check whether it is Neapolitan with its ''
 $PATTERN{character_code_in_link} = qr{


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