[Bug 2264507] perl-Crypt-SMIME-0.28-11.fc41 FTBFS: Failed test 'Load the default public key store' at t/04-taint.t line 257: died: Crypt::SMIME#setPublicKeyStore: failed to store the public cert at t/04-taint.t line 257.

[bugzilla@xxxxxxxxxx]

https://bugzilla.redhat.com/show_bug.cgi?id=2264507



--- Comment #3 from Petr Pisar <ppisar@xxxxxxxxxx> ---
The crashing test can be reduced to:

#!/usr/bin/perl
use strict;
use warnings;
use File::Spec;
use File::Temp qw(tempfile);
use Test::More;

my ($key, $crt);
do {
    my $OPENSSL = '/usr/bin/openssl';
    my ($conf_fh, $conf_file) = tempfile(UNLINK => 1);
    print {$conf_fh} <<'EOF';
[ req ]
distinguished_name     = req_distinguished_name
attributes             = req_attributes
prompt                 = no
[ req_distinguished_name ]
C                      = AU
ST                     = Some-State
L                      = Test Locality
O                      = Organization Name
OU                     = Organizational Unit Name
CN                     = Common Name
emailAddress           = test@email.address
[ req_attributes ]
EOF
    close $conf_fh;

    my $DEVNULL = File::Spec->devnull();
    my (undef, $key_file) = tempfile(UNLINK => 1);
    my (undef, $csr_file) = tempfile(UNLINK => 1);
    my (undef, $crt_file) = tempfile(UNLINK => 1);

    system(qq{$OPENSSL genrsa -out $key_file >$DEVNULL 2>&1}) and die $!;
    system(qq{$OPENSSL req -new -key $key_file -out $csr_file -config
$conf_file >$DEVNULL 2>&1}) and die $!;
    system(qq{$OPENSSL x509 -in $csr_file -out $crt_file -req -signkey
$key_file -set_serial 1 >$DEVNULL 2>&1}) and die $!;

    $key = do {
        local $/;
        open my $fh, '<', $key_file or die $!;
        scalar <$fh>;
    };
    $crt = do {
        local $/;
        open my $fh, '<', $crt_file or die $!;
        scalar <$fh>;
    };
};

my $plain = q{From: alice@xxxxxxxxxxx
To: bob@xxxxxxxxxxx
Subject: Crypt::SMIME test

This is a test mail. Please ignore...
};
$plain =~ s/\r?\n|\r/\r\n/g;

# -----------------------------------------------------------------------------
plan tests => 5;
use Crypt::SMIME;

my $smime = Crypt::SMIME->new();
ok($smime->setPrivateKey($key, $crt), 'Set an untainted keypair');
ok($smime->setPublicKey($crt), 'Set a tainted public key');
ok($smime->sign($plain), 'Sign an untainted message');
ok(eval {$smime->setPublicKeyStore()}, 'Load the default public key store');
ok($smime->sign($plain), 'Sign an untainted message');


-- 
You are receiving this mail because:
You are on the CC list for the bug.
https://bugzilla.redhat.com/show_bug.cgi?id=2264507

Report this comment as SPAM: https://bugzilla.redhat.com/enter_bug.cgi?product=Bugzilla&format=report-spam&short_desc=Report%20of%20Bug%202264507%23c3
--
_______________________________________________
perl-devel mailing list -- perl-devel@xxxxxxxxxxxxxxxxxxxxxxx
To unsubscribe send an email to perl-devel-leave@xxxxxxxxxxxxxxxxxxxxxxx
Fedora Code of Conduct: https://docs.fedoraproject.org/en-US/project/code-of-conduct/
List Guidelines: https://fedoraproject.org/wiki/Mailing_list_guidelines
List Archives: https://lists.fedoraproject.org/archives/list/perl-devel@xxxxxxxxxxxxxxxxxxxxxxx
Do not reply to spam, report it: https://pagure.io/fedora-infrastructure/new_issue