xgettext missed strings with perl ?:

[Karl Berry]

Hi Bruno,

With gettext 0.18.1.1, running
xgettext -L Perl -o - foo.pl

on the one-line Perl source foo.pl:
my $inf = foo() ? gettext("aaa") : 0;

yields no output.  With older versions (the one I had at hand is 0.14.6,
but I believe it was true with 0.16, not sure about 0.17), I get the
expected output with the string marked for translation:

/usr/bin/xgettext -o - -L Perl foo.pl
# SOME DESCRIPTIVE TITLE.
...
#: foo.pl:1
msgid "aaa"
msgstr ""


FWIW, replacing foo() with $foo still works with 0.18.1.1.

Thanks,
Karl