Package: tinyca Version: 0.7.5-3 Severity: normal Tags: patch
Use of qw(...) as parentheses is deprecated at GUI.pm line 981. Use of qw(...) as parentheses is deprecated at GUI.pm line 1006. Use of qw(...) as parentheses is deprecated at GUI.pm line 1032. Use of qw(...) as parentheses is deprecated at GUI.pm line 1048. Use of qw(...) as parentheses is deprecated at GUI.pm line 1063. Tons of warnings due to -w flag in /usr/bin/tinyca2 Program fails if it cannot parse a date, patch only remedies the symptom. -- System Information: Debian Release: 7.0 APT prefers unstable APT policy: (500, 'unstable'), (101, 'experimental') Architecture: amd64 (x86_64) Kernel: Linux 3.2.0-4-amd64 (SMP w/8 CPU cores) Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8) Shell: /bin/sh linked to /bin/bash Versions of packages tinyca depends on: ii libgtk2-perl 2:1.244-1 ii liblocale-gettext-perl 1.05-7+b1 ii openssl 1.0.1e-1 Versions of packages tinyca recommends: ii zip 3.0-7 tinyca suggests no packages. -- no debconf information --- /usr/share/tinyca/GUI.pm 2013-03-06 14:40:55.045693318 +0100 +++ /tmp/GUI.pm 2013-03-06 14:40:49.561661611 +0100 @@ -978,7 +978,7 @@ $piter = $store->append($root); $store->set($piter, 0 => $t); - for my $l (qw(CN EMAIL O OU C ST L)) { + for my $l qw(CN EMAIL O OU C ST L) { if(defined($parsed->{$l})) { if($l eq "OU") { foreach my $ou (@{$parsed->{'OU'}}) { @@ -1003,7 +1003,7 @@ $piter = $store->append($root); $store->set($piter, 0 => $t); - for my $l (qw(CN EMAIL O OU C ST L)) { + for my $l qw(CN EMAIL O OU C ST L) { if(defined($parsed->{'ISSUERDN'}->{$l})) { if($l eq "OU") { foreach my $ou (@{$parsed->{'ISSUERDN'}->{'OU'}}) { @@ -1029,7 +1029,7 @@ $piter = $store->append($root); $store->set($piter, 0 => $t); - for my $l (qw(STATUS NOTBEFORE NOTAFTER)) { + for my $l qw(STATUS NOTBEFORE NOTAFTER) { if(defined($parsed->{$l})) { $citer = $store->append($piter); $store->set($citer, @@ -1045,7 +1045,7 @@ $store->set($piter, 0 => $t); - for my $l (qw(STATUS SERIAL KEYSIZE PK_ALGORITHM SIG_ALGORITHM TYPE)) { + for my $l qw(STATUS SERIAL KEYSIZE PK_ALGORITHM SIG_ALGORITHM TYPE) { if(defined($parsed->{$l})) { $citer = $store->append($piter); $store->set($citer, @@ -1060,7 +1060,7 @@ $piter = $store->append($root); $store->set($piter, 0 => $t); - for my $l (qw(FINGERPRINTMD5 FINGERPRINTSHA1)) { + for my $l qw(FINGERPRINTMD5 FINGERPRINTSHA1) { if(defined($parsed->{$l})) { $citer = $store->append($piter); $store->set($citer, --- /tmp/OpenSSL.pm 2013-03-06 15:06:11.578455127 +0100 +++ /usr/share/tinyca/OpenSSL.pm 2013-03-06 15:04:56.254020175 +0100 @@ -1039,7 +1039,8 @@ sub _get_date { my $string = shift; - + + return 0 unless $string; $string =~ s/ / /g; my @t1 = split(/ /, $string); -- To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org