blob: e3ed7ed842e5f6de31d6c0865b1762c1fe383a78 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
BEGIN {
$| = 1;
print "1..1\n";
}
END {
print "not ok 1\n" unless $ok;
}
use OpenSSL;
my $bio = OpenSSL::BIO::new("mem") || die;
undef $bio;
$ok = 1;
print "ok 1\n";
|