S_del_body is sufficiently small that inlining it is a space win.
[p5sagit/p5-mst-13.2.git] / symbian / version.pl
1 use strict;
2
3 my %VERSION;
4
5 if (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
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;