Commit c7b047ba9fc85c76a833c5cbc7dc644dfcb564fe - libcryptx-perl

failure on perl 5.10 Karel Miko 8 years ago

1 changed file(s) with 1 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all

-1

lib/Crypt/PK/DSA.pm less more

62	62	return $self->_import_hex($p, $q, $g, undef, $y) if $typ && $p && $q && $g && $y && $typ eq 'ssh-dss';
63	63	}
64	64	elsif ($data =~ /ssh-dss\s+(\S+)/) {
65		$data = _decode_base64($1);
	65	$data = _decode_base64("$1");
66	66	my ($typ, $p, $q, $g, $y) = Crypt::PK::_ssh_parse($data);
67	67	return $self->_import_hex($p, $q, $g, undef, $y) if $typ && $p && $q && $g && $y && $typ eq 'ssh-dss';
68	68	}