view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker;
use Alien::Build::MM;
use Config;
use File::Spec;

# test preprocessor has needed symbols
{
    my @scmd = ($Config{cc}, '-E', 'tarsize/tarsize.c');
    print join(' ', @scmd)."\n";

    # backup stdout
    open(my $oldout, '>&STDOUT') or die('cant dup STDOUT');

    open(my $devnull, '>', File::Spec->devnull()) or die "$!";
    open(STDOUT, '>&', $devnull) or die('error redirecting stdout');
    system(@scmd) == 0 or die('OS unsupported');

    ## restore STDOUT
    open(STDOUT, '>&', $oldout) or die('error restoring stdout');
}