This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl5337delta: note that stadtx was removed
[perl5.git] / plan9 / versnum
1 /define PERL_REVISION/ {revision = $3}
2 /define PERL_VERSION/ {version = $3}
3 /define PERL_SUBVERSION/ {subvers = $3}
4 END {
5 if (subvers == 0) 
6         printf "p9pvers = %d.%d\n", revision, version> "buildinfo";
7 else
8         printf "p9pvers = %d.%d.%d\n" , revision, version, subvers> "buildinfo";
9 }