[Po4a-commits] "po4a/lib/Locale/Po4a Po.pm,1.53,1.54"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv29149/lib/Locale/Po4a

Modified Files:
	Po.pm 
Log Message:
make Po.pm:filter() less verbose.


Index: Po.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Po.pm,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -d -r1.53 -r1.54
--- Po.pm	23 Feb 2006 16:10:41 -0000	1.53
+++ Po.pm	24 Feb 2006 18:22:45 -0000	1.54
@@ -90,7 +90,7 @@
            'quote'	=> 0,
            'escape'	=> 0,
            'encoding'   => 0,
-           'filter'     => 1);
+           'filter'     => 0);
 
 =head1 Functions about whole message catalogs
 
@@ -496,7 +496,8 @@
     
     # I dream of a lex in perl :-/
     sub parse_expression {
-	showmethecode("Begin expression");
+	showmethecode("Begin expression")
+	    if $debug{'filter'};
 
 	gloups("Begin of expression expected, got '%s'",$filter[$pos])
 	  unless ($filter[$pos] eq '(');
@@ -504,7 +505,8 @@
 	if ($filter[$pos] eq '&') {
 	    # AND
 	    $pos++;
-	    showmethecode("Begin of AND");
+	    showmethecode("Begin of AND")
+		if $debug{'filter'};
 	    $code .= "(";
 	    while (1) {
 		gloups ("Unfinished AND statement.") 
@@ -570,7 +572,8 @@
 		$pos++;
 		$quoted = 1;
 	    }
-	    showmethecode(($quoted?"Quoted":"Unquoted")." argument of field '$field'");
+	    showmethecode(($quoted?"Quoted":"Unquoted")." argument of field '$field'")
+		if $debug{'filter'};
 
 	    while (!$done) {
 		gloups("Unfinished EQ argument.")
@@ -612,7 +615,8 @@
 	    $code .= "(\$_[$fieldpos] =~ m/$arg/)";
 	    
 	}
-	showmethecode("End of expression");
+	showmethecode("End of expression")
+	    if $debug{'filter'};
         gloups("Unfinished statement.")
 	  if ($pos == $length);
 	gloups("End of expression expected, got '%s'",$filter[$pos])
@@ -625,7 +629,8 @@
     gloups("Garbage at the end of the expression")
       if ($pos != $length);
     $code .= "; }";
-    print STDERR "CODE = $code\n";
+    print STDERR "CODE = $code\n"
+	if $debug{'filter'};
     eval $code;
     die wrap_mod("po4a::po", dgettext("po4a", "Eval failure: %s"), $@)
       if $@;