LXR perl/symbian/version.pl

   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;
  23