Commit 18a7d123 authored by Xavier Guimard's avatar Xavier Guimard

Accept old gpg syntax (Closes: #1569)

parent c0016bcd
......@@ -36,7 +36,15 @@ SKIP: {
my ( $out, $err );
run( [ 'gpg', '--clear-sign', '--homedir', 't/gpghome' ],
\$token, \$out, \$err, IPC::Run::timeout(10) );
ok( $? == 0, "Succeed to sign" );
if ( $? == 0 ) {
pass 'Succeed to sign';
}
else {
run( [ 'gpg', '--clearsign', '--homedir', 't/gpghome' ],
\$token, \$out, \$err, IPC::Run::timeout(10) );
ok( $? == 0, "Succeed to sign" );
}
$query .= '&' . build_urlencoded( password => $out );
ok(
$res = $client->_post(
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment