view release on metacpan or  search on metacpan

t/00-compile.t  view on Meta::CPAN

use Test::More;

compile_ok('script/perl-info');
compile_ok('lib/Gentoo/App/PerlInfo.pm');

sub compile_ok {
    my ($filename) = @_;
    open my $fh, '<', $filename or die "Cannot open $filename, $!";
    my $magic_number = scalar time();
    my $magic_phrase = qq[Compile OK:$magic_number];
    my $code         = qq[UNITCHECK { die "$magic_phrase"; }\n];
    $code .= qq[#line 1 "$filename"\n];
    $code .= do { local $/ = undef; scalar <$fh> };
    close $fh or warn "Error closing $filename, $!";
    my $pid = fork;

    if ($pid) {
        local $?;
        waitpid $pid, 0;
        my $exit   = $? >> 8;
        my $signal = $? & 127;