Commit | Line | Data |
---|---|---|
27da23d5 JH |
1 | use strict; |
2 | ||
3 | my %VERSION; | |
4 | ||
1ae6ead9 | 5 | if (open(PATCHLEVEL_H, "<", "patchlevel.h")) { |
27da23d5 JH |
6 | while (<PATCHLEVEL_H>) { |
7 | if (/#define\s+PERL_(REVISION|VERSION|SUBVERSION)\s+(\d+)/) { | |
8 | $VERSION{$1} = $2; | |
9 | } | |
10 | } | |
11 | close PATCHLEVEL_H; | |
12 | } else { | |
13 | die "$0: patchlevel.h: $!\n"; | |
14 | } | |
15 | ||
16 | die "$0: Perl release looks funny.\n" | |
17 | unless (defined $VERSION{REVISION} && $VERSION{REVISION} == 5 && | |
18 | defined $VERSION{VERSION} && $VERSION{VERSION} >= 8 && | |
19 | defined $VERSION{SUBVERSION}); | |
20 | ||
21 | ||
22 | \%VERSION; |