[Rt-commit] r5150 - in Locale-Maketext-Simple: .

[autrijus at bestpractical.com]

Author: autrijus
Date: Tue May  2 23:45:17 2006
New Revision: 5150

Modified:
   Locale-Maketext-Simple/Changes
   Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm

Log:
* 0.16. Fix the bug for real.

Modified: Locale-Maketext-Simple/Changes
==============================================================================
--- Locale-Maketext-Simple/Changes	(original)
+++ Locale-Maketext-Simple/Changes	Tue May  2 23:45:17 2006
@@ -1,13 +1,15 @@
+[Changes for 0.16 - 2006-05-03]
+
+* Oops, the gettext_to_maketext function was missing an escape
+  sequence, rendering message strings with [ ~ ] characters invalid.
+  Reported By: Rong-En Fan
+
 [Changes for 0.15 - 2006-05-02]
 
 * LICENSING CHANGE: This compilation and all individual files in it
   are now under the permissive "MIT" license.  See the COPYRIGHT
   section in README for the new terms.
 
-* Oops, the gettext_to_maketext function was missing an escape
-  sequence, rendering message strings with [ ~ ] characters invalid.
-  Reported By: Rong-En Fan
-
 [Changes for 0.14 - 2006-04-27]
 
 * Repair Perl 5.005 compatibility in the build system.

Modified: Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm
==============================================================================
--- Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm	(original)
+++ Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm	Tue May  2 23:45:17 2006
@@ -1,5 +1,5 @@
 package Locale::Maketext::Simple;
-$Locale::Maketext::Simple::VERSION = '0.15';
+$Locale::Maketext::Simple::VERSION = '0.16';
 
 use strict;
 use 5.004;
@@ -10,8 +10,8 @@
 
 =head1 VERSION
 
-This document describes version 0.15 of Locale::Maketext::Simple,
-released May 2, 2006.
+This document describes version 0.16 of Locale::Maketext::Simple,
+released May 3, 2006.
 
 =head1 SYNOPSIS
 
@@ -169,6 +169,7 @@
     elsif ($style eq 'gettext') {
 	$Loc{$pkg} = sub {
 	    my $str = shift;
+            $str =~ s{([\~\[\]])}{~$1}g;
             $str =~ s{
                 ([%\\]%)                        # 1 - escaped sequence
             |