[Rt-commit] rt branch, 3.9-trunk, updated. rt-3.9.7-1028-g8a46d05

[Shawn Moore]

The branch, 3.9-trunk has been updated
       via  8a46d05d4279da6e28d8d85c2de38d4234410dc7 (commit)
      from  0687ed4f12c51b132a49af1f5083c075de86d489 (commit)

Summary of changes:
 devel/extract-message-catalog |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit 8a46d05d4279da6e28d8d85c2de38d4234410dc7
Author: Shawn M Moore <sartak at bestpractical.com>
Date:   Thu Dec 23 17:19:52 2010 -0500

    Allow left_loc_pairs to be quoted
    
        Fixes some left_loc_pairs in lib/RT/Interface/Web.pm

diff --git a/devel/extract-message-catalog b/devel/extract-message-catalog
index 9d9a34e..d705884 100755
--- a/devel/extract-message-catalog
+++ b/devel/extract-message-catalog
@@ -218,7 +218,7 @@ sub extract_strings_from_code {
     # Comment-based left pair mark: "..." => ... # loc_left_pair
     $line = 1;
     pos($_) = 0;
-    while (m/\G.*?(?:(\w+)\s*=>[^#\n]+?)?$re_loc_left_pair_suffix/smgo) {
+    while (m/\G.*?(?:(\w+|$re_delim)\s*=>[^#\n]+?)?$re_loc_left_pair_suffix/smgo) {
 	my $key = $1;
 	$line += ( () = ( $& =~ /\n/g ) );    # cryptocontext!
         unless ( defined $key ) {

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