Re: Bug#269059: xgettext misparses Perl source (-s $filename is treated as s$filename$$; ) (fwd)

[Bruno Haible]

Here is the fix, thanks to Guido Flohr.

diff -c -3 -r1.26 x-perl.c
*** gettext-tools/src/x-perl.c  29 Dec 2003 11:58:04 -0000      1.26
--- gettext-tools/src/x-perl.c  1 Oct 2004 12:08:15 -0000
***************
*** 2459,2464 ****
--- 2459,2471 ----
              tp->type = token_type_dereference;
              return;
            }
+         else if ((c >= 'A' && c <= 'Z') || (c >= 'a' && c <= 'z'))
+           {
+             /* One of the -X (filetest) functions.  We play safe
+                and accept all alphabetical characters here.  */
+             tp->type = token_type_other;
+             return;
+           }
          phase1_ungetc (c);
          tp->type = token_type_other;
          prefer_division_over_regexp = false;