#! /usr/bin/env perl
# http://code.google.com/p/perl-compiler/issues/detail?id=308
# run-time load of some packages - missing DynaLoader::bootstrap
# DynaLoader and AutoLoader
# core: IPC::SysV DB_File
# cpan: Net::LibIDN Net::SSLeay BSD::Resource
use strict;
BEGIN {
unshift @INC, 't';
require "test.pl";
}
use Test::More tests => 2;
my $script = 'print (eval q{require BSD::Resource;} ? qq{ok\n} : $@);';
my $exp = "ok";
if (eval "require BSD::Resource;") {
ctest(1, $exp, 'C,-O3', 'ccode308i', $script, 'C #308 run-time load BSD::Resource - missing DynaLoader::bootstrap');
} else {
ok(1, "skip BSD::Resource not installed");
}
$script = 'print (eval q{require Net::SSLeay;} ? qq{ok\n} : $@);';
if (eval "require Net::SSLeay;") {
# works with -O3
ctest(2, $exp, 'C', 'ccode308i', $script, 'C run-time load Net::SSLeay - missing %Config in Errno.pm');
} else {
ok(1, "skip Net::SSLeay not installed");
}
# 'print $_,": ",(eval q{require }.$_.q{;} ? qq{ok\n} : $@) for qw(BSD::Resource IPC::SysV DB_File Net::LibIDN Net::SSLeay);'