[perl5.git] / symbian / version.pl

use strict;

my %VERSION;

if (open(PATCHLEVEL_H, "<", "patchlevel.h")) {
  while (<PATCHLEVEL_H>) {
     if (/#define\s+PERL_(REVISION|VERSION|SUBVERSION)\s+(\d+)/) {
         $VERSION{$1} = $2;
     }
  }
  close PATCHLEVEL_H;
} else {
  die "$0: patchlevel.h: $!\n";
}

die "$0: Perl release looks funny.\n"
  unless (defined $VERSION{REVISION} && $VERSION{REVISION} == 5 &&
          defined $VERSION{VERSION}  && $VERSION{VERSION}  >= 8 &&
          defined $VERSION{SUBVERSION});


\%VERSION;
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;