1 package # hide from PAUSE
7 use Path::Class qw/file dir/;
9 _check_author_makefile() unless $ENV{DBICTEST_NO_MAKEFILE_VERIFICATION};
11 # Die if the author did not update his makefile
13 # This is pretty heavy handed, so the check is pretty solid:
15 # 1) Assume that this particular module is loaded from -I <$root>/t/lib
16 # 2) Make sure <$root>/Makefile.PL exists
17 # 3) Make sure we can stat() <$root>/Makefile.PL
19 # If all of the above is satisfied
21 # *) die if <$root>/inc does not exist
22 # *) die if no stat() results for <$root>/Makefile (covers no Makefile)
23 # *) die if Makefile.PL mtime > Makefile mtime
25 sub _check_author_makefile {
27 my $root = _find_co_root()
30 my $optdeps = file('lib/DBIx/Class/Optional/Dependencies.pm');
32 # not using file->stat as it invokes File::stat which in turn breaks stat(_)
33 my ($mf_pl_mtime, $mf_mtime, $optdeps_mtime) = ( map
34 { (stat ($root->file ($_)) )[9] }
35 (qw|Makefile.PL Makefile|, $optdeps)
38 return unless $mf_pl_mtime; # something went wrong during co_root detection ?
42 if(not -d $root->subdir ('inc')) {
43 push @fail_reasons, "Missing ./inc directory";
47 push @fail_reasons, "Missing ./Makefile";
49 elsif($mf_mtime < $mf_pl_mtime) {
50 push @fail_reasons, "./Makefile.PL is newer than ./Makefile";
53 if ($mf_mtime < $optdeps_mtime) {
54 push @fail_reasons, "./$optdeps is newer than ./Makefile";
61 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
62 ======================== FATAL ERROR ===========================
63 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
65 We have a number of reasons to believe that this is a development
66 checkout and that you, the user, did not run `perl Makefile.PL`
67 before using this code. You absolutely _must_ perform this step,
68 and ensure you have all required dependencies present. Not doing
69 so often results in a lot of wasted time for other contributors
70 trying to assit you with spurious "its broken!" problems.
72 If you are seeing this message unexpectedly (i.e. you are in fact
73 attempting a regular installation be it through CPAN or manually),
74 please report the situation to either the mailing list or to the
75 irc channel as described in
77 http://search.cpan.org/dist/DBIx-Class/lib/DBIx/Class.pm#GETTING_HELP/SUPPORT
82 Reasons you received this message:
86 foreach my $r (@fail_reasons) {
87 print STDERR " * $r\n";
89 print STDERR "\n\n\n";
95 # Mimic $Module::Install::AUTHOR
98 my $root = _find_co_root()
102 ( not -d $root->subdir ('inc') )
104 ( -e $root->subdir ('inc')->file ($^O eq 'VMS' ? '_author' : '.author') )
108 # Try to determine the root of a checkout/untar if possible
112 my @mod_parts = split /::/, (__PACKAGE__ . '.pm');
113 my $rel_path = join ('/', @mod_parts); # %INC stores paths with / regardless of OS
115 return undef unless ($INC{$rel_path});
117 # a bit convoluted, but what we do here essentially is:
118 # - get the file name of this particular module
119 # - do 'cd ..' as many times as necessary to get to t/lib/../..
121 my $root = dir ($INC{$rel_path});
122 for (1 .. @mod_parts + 2) {
123 $root = $root->parent;
126 return (-f $root->file ('Makefile.PL') )