Alien-SDL
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
$shlib_map{$_} = $have_libs->{$_}->[1];
}
}
}
$self->config_data('config', $cfg);
}
sub can_build_binaries_from_sources {
# this needs to be overriden in My::Builder::<platform>
my $self = shift;
return 0; # no
}
sub build_binaries {
# this needs to be overriden in My::Builder::<platform>
my ($self, $build_out, $build_src) = @_;
die "###ERROR### My::Builder cannot build SDL from sources, use rather My::Builder::<platform>";
}
sub get_additional_cflags {
# this needs to be overriden in My::Builder::<platform>
my $self = shift;
return '';
}
sub get_additional_libs {
# this needs to be overriden in My::Builder::<platform>
my $self = shift;
return '';
}
sub get_path {
# this needs to be overriden in My::Builder::<platform>
my ( $self, $path ) = @_;
return $path;
}
sub clean_dir {
my( $self, $dir ) = @_;
if (-d $dir) {
remove_tree($dir);
make_path($dir);
}
}
sub escape_path {
# this needs to be overriden in My::Builder::<platform>
my( $self, $path ) = @_;
return $path;
}
sub check_build_done_marker {
my $self = shift;
return (-e 'build_done');
}
sub touch_build_done_marker {
my $self = shift;
require ExtUtils::Command;
local @ARGV = ('build_done');
ExtUtils::Command::touch();
$self->add_to_cleanup('build_done');
}
sub clean_build_done_marker {
my $self = shift;
unlink 'build_done' if (-e 'build_done');
}
sub check_sha1sum {
my( $self, $file, $sha1sum ) = @_;
my $sha1 = Digest::SHA->new;
my $fh;
open($fh, $file) or die "###ERROR## Cannot check checksum for '$file'\n";
binmode($fh);
$sha1->addfile($fh);
close($fh);
my $_sha1sum = $sha1->hexdigest;
warn "###WARN## checksum for file $file is $_sha1sum but we expect $sha1sum\n" if $_sha1sum ne $sha1sum;
return ($_sha1sum eq $sha1sum) ? 1 : 0
}
sub patch_get_affected_files {
my( $self, $patch_file ) = @_;
open(DAT, $patch_file) or die "###ERROR### Cannot open file: '$patch_file'\n";
my @affected_files = map{$_ =~ /^---\s*([\S]+)/} <DAT>;
close(DAT);
return @affected_files;
}
1;
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.052 second using v1.00-cache-2.02-grep-82fe00e-cpan-9e6bc14194b6 )