[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Bug#269059: xgettext misparses Perl source (-s $filename is treated
From: |
Bruno Haible |
Subject: |
Re: Bug#269059: xgettext misparses Perl source (-s $filename is treated as s$filename$$; ) (fwd) |
Date: |
Fri, 1 Oct 2004 14:08:16 +0200 |
User-agent: |
KMail/1.5 |
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;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Re: Bug#269059: xgettext misparses Perl source (-s $filename is treated as s$filename$$; ) (fwd),
Bruno Haible <=