Skip to content

Commit

Permalink
now creates data directory and removes empty lib directory
Browse files Browse the repository at this point in the history
  • Loading branch information
dozy committed Aug 29, 2014
1 parent 95679c9 commit de78e70
Showing 1 changed file with 27 additions and 2 deletions.
29 changes: 27 additions & 2 deletions Build.PL
Original file line number Diff line number Diff line change
Expand Up @@ -5,20 +5,38 @@ use Module::Build;
my $class = Module::Build->subclass(code => <<'EOF');
sub git_tag {
my $gitver = q[git describe --dirty --always];
my $gitver = q[git describe --tags --dirty --always];
my $version = `$gitver` || 'unknown';
$version =~ s/\s$//smxg;
$version=~s/\A(?![\d])/0.0-/smx; #prepend 0.0- if does not start with a number
return $version;
}
sub process_data_files {
`cp -av data blib`;
return;
}
sub ACTION_install {
my $self = shift;
$self->SUPER::ACTION_install;
my $lib = $self->install_base() .'/lib';
if (-d $lib) {
`rm -frv $lib`;
}
}
sub ACTION_code {
my $self = shift;
$self->SUPER::ACTION_code;
my $gitver = $self->git_tag();
my @files = split q[\n], `find blib/lib -type f -name "*.pm"`;
my @files = ();
if (-d 'blib/script') {
@files = split q[\n], `find blib/lib -type f -name "*.pm"`;
}
if (-d 'blib/script') {
push @files, split q[\n], `find blib/script -type f`;
}
Expand Down Expand Up @@ -71,6 +89,13 @@ my $builder = $class->new(
'dist' => { COMPRESS => 'gzip', SUFFIX => 'gz', }
);

if ($builder->install_base()) {
$builder->install_path('data' => join q{/}, $builder->install_base(), 'data');
$builder->add_build_element('data');
} else {
warn "WARNING: '--install_base' option is not given, 'data' element will not be installed\n\n";
}

$builder->create_build_script();

1;

0 comments on commit de78e70

Please sign in to comment.