Re: dokuwiki missing in debconf status pages

[Denis Barbier <bouzim@gmail.com>]

On 2010/9/8 Martin Bagge / brother wrote:
> Hi
> I was alerted about a missing translation for debconf in Dokuwiki (the
> upload happened back in July so it's long overdue) and resorted to
> mumble horrible Swedish words like järnspikar och Kamprad.
>
> One of the reasons for me not noticing the dokuwiki debconf file is
> probably because it is missing in the status pages here:
> http://www.debian.org/international/l10n/po-debconf/sv
>
> How could this have happened? Are there more packages missing?
[...]

Hello,

There is a bug with the script extracting PO files (patch attached
against dl10n/trunk), fortunately only dokuwiki is affected by this
bug.

Denis

Index: lib/Debian/Pkg/Tar.pm
===================================================================
--- lib/Debian/Pkg/Tar.pm	(revision 2390)
+++ lib/Debian/Pkg/Tar.pm	(working copy)
@@ -272,7 +272,7 @@
 
         my ($name, $type, $size) = $self->_read_header(0) or return 0;
         my $path = '';
-        $name = $self->{dir}."/".$name if $self->{_prepend_dir};
+        $name = $self->{dir}."/".$name if $self->{_prepend_dir} && $self->{dir} ne '';
 
         $offset = $self->{offset};
         if ($type eq "file") {
@@ -422,7 +422,7 @@
         $name .= '/' if $type eq 'dir' && $name !~ m#/#;
 
         if ($name =~ s|^((\.\/)?[^/]+)/||) {
-                if ($self->{wrongdir} == 0) {
+                if ($self->{wrongdir} == 0 && $self->{_prepend_dir} == 0) {
                         if ($self->{dir} ne "" && $self->{dir} ne $1) {
                                 $name = $1 . '/' . $name;
                                 $self->{wrongdir} = 1;