[Rt-commit] rt branch, 4.0/translation-updates, created. rt-4.0.8-347-g6dd02cb

[? sunnavy]

The branch, 4.0/translation-updates has been created
        at  6dd02cbb781d952c59eeda44db33f35eeebb0085 (commit)

- Log -----------------------------------------------------------------
commit 6dd02cbb781d952c59eeda44db33f35eeebb0085
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Sun Dec 30 00:10:26 2012 -0500

    Broaden loc_qw parsing to parse "for (qw(a b c)) {\n"
    
    This particular construction is used in lib/RT/Report/Tickets.pm

diff --git a/devel/tools/extract-message-catalog b/devel/tools/extract-message-catalog
index 7e6ec35..a27d1f7 100755
--- a/devel/tools/extract-message-catalog
+++ b/devel/tools/extract-message-catalog
@@ -201,7 +201,7 @@ sub extract_strings_from_code {
     # Comment-based qw mark: "qw(...)" # loc_qw
     $line = 1;
     pos($_) = 0;
-    while (m/\G(.*?(?:qw\(([^)]+)\)[\}\)\],;]*)?$re_loc_qw_suffix)/smgo) {
+    while (m/\G(.*?(?:qw\(([^)]+)\)\s*[\{\}\)\],; ]*)?$re_loc_qw_suffix)/smgo) {
         my ( $all, $str ) = ( $1, $2 );
         $line += ( $all =~ tr/\n/\n/ );
         unless ( defined $str ) {

-----------------------------------------------------------------------