S_del_body is sufficiently small that inlining it is a space win.
[p5sagit/p5-mst-13.2.git] / symbian / version.pl
CommitLineData
27da23d5 1use strict;
2
3my %VERSION;
4
5if (open(PATCHLEVEL_H, "patchlevel.h")) {
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
16die "$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;