Fix a path in the release guide
[perl.git] / Porting / checkVERSION.pl
1 #!/usr/bin/perl -w
2
3 #
4 # Check the tree against missing VERSIONs.
5 #
6 # Originally by Larry Shatzer
7 #
8
9 use strict;
10 use File::Find;
11
12 find(
13      sub {
14          return unless -f;
15          if (/\.pm$/ && $File::Find::name !~ m:/t/:) { # pm but not in a test
16              unless (parse_file($_)) {
17                  print "$File::Find::name\n";
18              }
19          }
20      }, @ARGV ? shift : ".");
21
22 sub parse_file {
23     my $parsefile = shift;
24
25     my $result;
26
27     open(FH,$parsefile) or warn "Could not open '$parsefile': $!";
28
29     my $inpod = 0;
30     while (<FH>) {
31         $inpod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $inpod;
32         next if $inpod || /^\s*\#/;
33         chomp;
34         next unless /([\$*])(([\w\:\']*)\bVERSION)\b.*\=/;
35         my $eval = qq{
36             package ExtUtils::MakeMaker::_version;
37             no strict;
38             local $1$2;
39             \$$2=undef; do {
40                 $_
41             }; \$$2
42         };
43         no warnings;
44         $result = eval($eval);
45         warn "Could not eval '$eval' in $parsefile: $@" if $@;
46         $result = "undef" unless defined $result;
47         last;
48     }
49     close FH;
50     return $result;
51 }
52