[Po4a-commits] "po4a po4a,1.48,1.49"
Nicolas FRANCOIS
nekral-guest at alioth.debian.org
Fri Feb 24 19:34:17 UTC 2006
Update of /cvsroot/po4a/po4a
In directory haydn:/tmp/cvs-serv12370
Modified Files:
po4a
Log Message:
Quote and escape the reference gievn to filter().
(m/$ref/ was failing in Po.pm:filter)
Index: po4a
===================================================================
RCS file: /cvsroot/po4a/po4a/po4a,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -d -r1.48 -r1.49
--- po4a 8 Dec 2005 21:04:27 -0000 1.48
+++ po4a 24 Feb 2006 19:34:15 -0000 1.49
@@ -654,9 +654,9 @@
my $po=Locale::Po4a::Po->new();
print " $master:" unless ($po4a_opts{"quiet"});
print "(pot)" unless ($po4a_opts{"quiet"});
- $pot=$potfile->filter("(reference=$master:)");
+ $pot=$potfile->filter("(reference='\Q$master:\E')");
print "(po) " unless ($po4a_opts{"quiet"});
- $po=$poorig->filter("(reference=$master:)");
+ $po=$poorig->filter("(reference='\Q$master:\E')");
unlink($pot_filename) if -e $pot_filename;
unlink($po_filename) if -e $po_filename;
More information about the Po4a-commits
mailing list