[Po4a-commits] "po4a po4a,1.48,1.49"

[Nicolas FRANCOIS]

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;