Bug#573770: xgettext: Fails to output some marked perl strings for translation (fwd)

[Santiago Vila]

Hello.

Another report from the Debian BTS:

---------- Forwarded message ----------
From: Guillem Jover <address@hidden>
To: address@hidden
Date: Sat, 13 Mar 2010 20:59:13 +0100
Subject: Bug#573770: xgettext: Fails to output some marked perl strings for
    translation

Package: gettext
Version: 0.17-10
Severity: important

Hi!

It seems xgettext does not extract all marked strings in the perl
program update-alternatives. I just noticed the other day due to some
strings being marked now as obsolete, and haven't had the time to
investigate much, so not sure if it's something that used to work and
does not anymore, or if it's due to some recent code rearrangement in
u-a itself.

The test case:

  $ xgettext -L Perl --from-code=UTF-8 -k_g /usr/bin/update-alternatives

The messages.po does not contain the usage() or version() strings for
example, there might be others missing. But if I move the version()
sub just before the ÿÿ# New choice wantedÿÿ comment then it sees it.

The file can also be retrieved from git:

 
<http://git.debian.org/?p=dpkg/dpkg.git;a=blob_plain;f=scripts/update-alternatives.pl;hb=HEAD>

thanks,
guillem