Bug#519759: gettext: xgettext after perl // operator (fwd)

[Santiago Vila]

Hello.

I received this from the Debian bug system:

---------- Forwarded message ----------
From: Kevin Ryde <address@hidden>
To: address@hidden
Date: Sun, 15 Mar 2009 08:56:43 +1100
Subject: Bug#519759: gettext: xgettext after perl // operator

Package: gettext
Version: 0.17-6
Severity: normal
File: /usr/bin/xgettext

A file foo.pl containing

    print gettext('hello');
    $foo // 'undef';
    print gettext('world');

processed as

    xgettext --output=- --language=Perl foo.pl

prints only the first message

    #: foo.pl:1
    msgid "hello"
    msgstr ""

where I hoped it would give the "world" one too.

It might be related to the // defined-or operator, new in perl 5.10.  If
it's instead a plain || or similar then the "world" string is printed.

[...]