Package: libgnupg-interface-perl Version: 0.42.002-2 Severity: normal Tags: patch
This pretty much the same bug as #600290 but about the get_public_keys method this time. Attached patch fixes this. -- System Information: Debian Release: squeeze/sid APT prefers testing APT policy: (990, 'testing'), (1, 'unstable') Architecture: amd64 (x86_64) Kernel: Linux 2.6.32-5-amd64 (SMP w/4 CPU cores) Locale: LANG=fr_FR.UTF-8, LC_CTYPE=fr_FR.UTF-8 (charmap=UTF-8) Shell: /bin/sh linked to /bin/dash Versions of packages libgnupg-interface-perl depends on: ii gnupg 1.4.10-4 GNU privacy guard - a free PGP rep ii libany-moose-perl 0.13-1 module to use either Moose or Mous ii perl 5.10.1-16 Larry Wall's Practical Extraction libgnupg-interface-perl recommends no packages. libgnupg-interface-perl suggests no packages. -- no debconf information -- intrigeri <intrig...@boum.org> | GnuPG key @ https://gaffer.ptitcanardnoir.org/intrigeri/intrigeri.asc | OTR fingerprint @ https://gaffer.ptitcanardnoir.org/intrigeri/otr-fingerprint.asc | Every now and then I get a little bit restless | and I dream of something wild.
Index: lib/GnuPG/Interface.pm =================================================================== --- lib/GnuPG/Interface.pm (révision 66357) +++ lib/GnuPG/Interface.pm (copie de travail) @@ -552,10 +552,12 @@ ) = @fields[ 1 .. 11 ]; my $expiration_date_string; - if ($expiration_date eq '') { - $expiration_date = undef; - } else { - $expiration_date_string = $self->_downrez_date($expiration_date); + if (defined $expiration_date) { + if ($expiration_date eq '') { + $expiration_date = undef; + } else { + $expiration_date_string = $self->_downrez_date($expiration_date); + } } my $creation_date_string = $self->_downrez_date($creation_date);