perl/plan9/versnum
<<
>>
Prefs
   1/PERL_VERSION/ {base = $3}
   2/PERL_SUBVERSION/ {subvers = $3}
   3END {
   4if (subvers == 0) 
   5        printf "p9pvers = 5.%03d\n", base> "buildinfo";
   6else
   7        printf "p9pvers = 5.%03d_%02d\n" , base, subvers> "buildinfo";
   8}
   9
lxr.linux.no kindly hosted by Redpill Linpro AS, provider of Linux consulting and operations services since 1995.