view release on metacpan or  search on metacpan

inc/My/Builder/Unix.pm  view on Meta::CPAN

package My::Builder::Unix;

use strict;
use warnings;

use Devel::CheckLib;
use File::Copy qw/move cp/;

use base 'My::Builder';

sub new {
    my ($class, %args) = @_;
    check_lib_or_exit(
        header  => [
            'X11/cursorfont.h',
            'GL/glx.h',
            'GL/gl.h',
        ],
        incpath => [
            '/usr/local/include',
            '/usr/X11R6/include',
            '/usr/include'
        ],
    );
    my $self = $class->SUPER::new(%args);
    return $self;
}

sub prebuild {
    my $self = shift;
    my $dst = $self->notes('src_dir') . '/Makefile';
    my $src = $self->base_dir . '/inc/Makefile';
    cp($src, $dst) or die("Can't cp $src $dst: $!");
    print STDERR "Original Makefile has been overwritten.\n";
    my $malloc_h_patch = $self->base_dir . '/inc/malloc_stdlib_h.patch';
    $self->apply_patch($self->notes('src_dir'), $malloc_h_patch);
}

1;