File: CheckGitConfig.pm

package info (click to toggle)
libgit-wrapper-perl 0.037-2
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 232 kB
  • ctags: 55
  • sloc: perl: 451; makefile: 6
file content (33 lines) | stat: -rw-r--r-- 790 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
package inc::CheckGitConfig;
use Moose;
extends 'Dist::Zilla::Plugin::MakeMaker::Awesome';

# TODO: in future versions of MakeMaker::Awesome, we can do all this right
# from dist.ini, so we don't have to subclass. pester ether.

around _build_MakeFile_PL_template => sub {
    my $orig = shift;
    my $self = shift;

my $git_check = <<GIT_CHECK;
require File::Spec;
die 'git seems broken; maybe check your HOME environment variable?'
    if system('git config --list >'.File::Spec->devnull);

GIT_CHECK

    my $template = $self->$orig(@_);
    $template =~ s/(?<=use warnings;\n\n)/$git_check/m;
    return $template;
};

after register_prereqs => sub {
    my $self = shift;

    $self->zilla->register_prereqs(
        { phase => 'configure' },
        'File::Spec' => 0,
    );
};

1;