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 [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
