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);
